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EDITORTAL 
Das Sommerloch... 


„. gibt es bei uns nicht! Sicher, im Sommer haben die meisten 
Leser etwas anderes zu tun, als mit dem Computer zu arbei- 
ten. Dennoch haben wir uns entschlossen, auch in diesem Heft 
eine starke Mischung zusammenzustellen. Programme finden 
Sie diesmal in großer Zahl. Dafür haben wir allerdings die An- 
zahl der Leserseiten zurückgeschraubt. Auch der Reportteil ist 
etwas kürzer als sonst. Das liegt einfach daran, daß es eben 
doch so etwas wie ein Sommerloch gibt. Trotzdem hoffen wir 
| natürlich, wieder einen ansprechenden Inhalt zusammengestellt 
| zu haben. 


Bei den Programmen liegt der Schwerpunkt diesmal bei den 
Strategiespielen. Viele Leser haben uns darum gebeten, mal 
solche Programme zu veröffentlichen, bitte, hier sind sie! 

| Schauen Sie sich mal die Programme THE GALAXY MASTER 
und EXPLOSION an. Freunde von Strategiespielen dürften hier 
| voll auf ihre Kosten kommen. 


| Komplette Anwenderprogramme haben wir diesesmal zwar 
| nicht, dafür aber eine Menge nützlicher Utilities, die von der Zu- 
sammenstellung her recht interessant sein dürften. 

Neben dem recht umfangreichen Assemblerkurs finden Sie 
auch einen kleinen Hardwareteil, der sich mit dem MPS-801- 
Drucker und dem Netzteil des Plus/4 befaßt. 

Teilen Sie uns ruhig Ihre Meinug zu dieser Ausgabe mit, für Le- 
serwünsche haben wir immer ein offenes Ohr! 

Freuen können Sie sich übrigens jetzt schon auf die nächste 
| Ausgabe, dort werden wir ein DAME-Programm abdrucken, das 
durch hohe Spielstärke überzeugt. Zwar wird dieses Listing dann 
auch sehr lang werden, wir finden aber, daß es sich lohnt, es 
einzutippen. 








Doch zunächst sollten Sie sich diese Ausgabe von ”Compute 
mit” zu Gemüte führen, es lohnt sich! 


Ottfried Schmidt 
(Chefredakteur) 
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Programm: Joe Blade I, 
Computertyp: C16/116/Plus/4, 
Preis: Ca..% DM, Be 
zugsquelle: Versandhandel R. 
Lindenschmidt, Schulstr, 14, 
4972 Löhne 2 





Zwar nicht mehr ganz neu, 
doch trotzdem einigermaßen 
brauchbar ist das Spiel JOE 
BLADE Il, das von der Firma 
Liridenschmidt zu beziehen ist. 
Grob gesagt handelt es sich 
um ein Labyrinth-Spiel, bei 
dem auch gekämpft werden 
darf, Man hat den Auftrag, die 
Stadt von Unrat und Gangstern 
zu befreien. Zusätzlich müssen 
noch Bürger gefunden werden. 
Das klingt zwar nach einem Ak- 
tionspiel, in Wirklichkeit aber 
läuft man nur mit einem 
Männchen durch die Gegend 
und sammelt Hleißig Dinge ein. 
Um die gestellte Aufgabe zu 
schaffen, steht nur eine be- 
stimmte Zeit zur Verfügung, 
zehn Minuten. Durch das Auf- 


sammeln von Woeckern 1äßt 
sich diese Zeitspanne aber 
immer wieder auf den An- 
tangswert zurücksetzen. 

Sammelt man je fünf Müllton- 
nen ein, so gibt's einen 
Punktebonus. Eigentlich nur 
Staffage sind die Gegner, die in 
Form von Punkern auftreten. 
Sie schaden dem Spieler in 
keinster Weise, können aber 
durch einen Sprung beseitigt 
werden. Dafür gibt es dann 
weitare Punkte. Findet man ei- 
nen der Bürger (von denen 
man entgegen der Anleitung 13 
und nicht 12 finden muß), so ist 
ein "Subgame” zu lösen. Da- 
bei geht es eigentlich nur 
darum, eine Zahlenreihs von 
eins bis vier zusammenzuset- 
zen. Das ist recht einfach und 
stellt keine hohen Anforderun- 


m | rn vr erEreumme mem 
nn nn m m pr nem 
_ 


JSOE BLSBE 2 WUREITEN BY HEUER PanuER 


JUOE BLADE 2 HURENTENn BU BEUEN PRRUER 


gen an den Spieler. Sinddann 
endlich alte 19 Bürger gefun- 
den, tja, dann ist das Spiel zu 


Ende! Einfach so! Es gibt noch. 


eine Gratulation, daß man die 


UNE LEFY ©2 39 


nn en en en em 
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Stadt gesäubert hätte, dann 
landet man wieder im Titelbild 
und darf von vorn beginnen. 
Wir meinen, da hätte man sich 
schon etwas Besseres einfallen 
lassen können! Grafisch ist das 
Spiel nicht schlecht, obwohl at- 
les einfarbig dargestellt ist. Das 
Spiel dürfte. aber nach kurzer 
Zeitlangweilig werden. Viel An- 
imation gibt es im Spiel eigent- 
lich nicht. Tritt man nämlich ei- 
nen der Gegner, so verschwin- 
det dieser einfach. Mager ist al- 
ierdings der Sound, es gibt 
nämlich keinen! Nicht der 
kleinste Pieps ließ sich dem 
Lautsprecher entlocken, Ob 
man's kaufen sollte? Na, ich 
weiß nicht so recht. 


Otttried Schmidt 


Alle Programme aus. diesem Heft gibt es schon lauffähig 
auf Kassette & Diskette. Schauen Sie’doch einfach 


mal nach im Tronic-Softwareservice 
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EPROMS 


ir stellten ja bereits in &i- 

ner früheren Ausgabe 
von ”Compute mit” seine 
EPROM-Bank vor. Diese hier 
zeichnet sich vor allem durch 
den Servica des Herstellers 
aus. Über EPROM-Bänke kann 
man ja im allgemeinen nicht 
allzuvielsagen. Man steckt die 
EPROMS hinein und kann 
dann per Schalter zwischen 
verschiedenen Programmen 
wählen. Dies ist ja der einzige 
Zweck einer solchen Erweite- 
rung. Nun kann ja nicht jeder 
selbst EPROMS brennen. 
Auch hier schafft der Hersteller 
dieser Bank Abhilfe: Auf 
Wunsch brennt er die pas 
sende Software auch selbst 
ein. Zu beziehen ist diese Bank 
in neun verschiedenen Versio- 
nen, die Preise liegen zwischen 
29 DM und 89 DM zuzüglich 
der Versandkosten, die noch- 
mals mit DM 5 bzw. DM 7 zu 
Buche schlagen. In der ein- 
fachsten Version beinhaltet die 
Lieferung nur die Platine mit 
sieben IC-Sockeln. Die größte 
Version ist anschlußfertig und 
wird mit Gehäuse und Adapter 
für den Expansionsport gelie- 


tert. Natürlich sind da noch 


keine EPROMS dabei. 

Auch technisch unversierte 
User können in den Genuß ek 
ner solchen Software-LUmschal- 
tung kommen, da, wie bereits 
gesagt, das Brennen und Ein- 
bauen der EPROMS auch vom 





C16 und EPROM-Bank; 
Ein starkes Gespann 








Reih & 
Glied 


Hersteller erledigt werden 
kann. Dies muß dann natürlich 
extra bezahlt werden. 

Die mitgelieferte Anleitung 
macht es möglich, dieses Teil 
wirklich universiell einzusetzen. 
Sogar der Anschluß an andere 
Computertypen ist denkbar. 
Dazu sind dann allerdings 
schon einige Kenntnisse 
notwendig. 

Der Aufbau der Fertig-Version 
macht einen sauberen Ein- 
druck und ist elektrisch in 
Ordnung. Dem Anschlußkabel 
hätte aber noch eine Zug- 
entlastung gegönnt werden 
können. Eingebaut ist die Pla- 
tine in ein Flachgehäuse, das 
den Umschalter auf der 
Frontseite enthält. Auf Wunsch 
kann man ein Kabel von bis zu 
100cm Länge bekommen, 
womit dann das Platzproblem 
gelöst werden kann. 


Es lohnt sich auf alle Fälle, den 
Kauf dieser qualitativ guten 
Eprom-Bank zu erwägen, 

Zu beziehen ist die EPRENE 
Bank bei: 


Lars Peters 
Waldstr, 102 
2362 Wahlstedt 
Tel. 04554/4468 


Gegen Einsendung von DM 
3,.- an den ‚Hersteller können 
auch noch weitere Intormatio- 
nen bezogen werden. 


EEE EIETETEISTSISTSTEISTsiaTaigiaialaja/afafaia/a/nia/uin/a/ala/a/ata/ata/n]u/n/u]a/njalaja) 


PAC-MAN’s 


Abschied 





ies ist jetzt unwiederruflich 

die letzte Pac-Man- 
Version, die wir veröffentlichen! 
Trotzdem, diese hier mußte 
nochmal sein, denn sie ist ganz 
einfach gut. 40 verschiedene 
Räume, Interrupt-Sound und 
Bonusgegenstände, dies sind 
die Besonderheiten, durch die 
sich diese Version auszeich- 
net. Zum Spiel braucht nun 
wirklich nicht mehr viel gesagt 


zu warden; Pac-Man dürfte be- 
kannt sein. Deshalb kommen 
wir gleich zur Eingabe: Das 
Programm läuft auf allen Rech- 
nerversionen, die 16K-User 
haben es nur bei der Eingabe 
etwas schwieriger. Sie müssen 
das Programm in zwei Teile 
zerlegen. Der erste Teil reicht 
dann von $ 1001 bis $2000, der 
zweite von 92000 bis 53140, 
Die Adressen für den MC- 
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Checker sind dann: 12000 für 
Teil 1.und 4097 tür Teil 2. Mit 
dem TEDMON lassen sich 
beide Teile dann anschlisßend 
zusammenfügen (”L”-Befehl). 
Wer 64k-RAM besitzt, istetwas 
glücklicher dran: Er legt den 
Checker an Adresse 32000, 
tippt das Programm ein und 
speichert es ab. Egal, wie es 
eingegeben wurde, der Befehl 
zum Abspeichern der kompiet- 
ten Version lautet: S’PAC 
"MAN” ‚8(,1),1001,3148 


PROGRAMME 





Das Listing 


MC-LISTING MIT CHECKSUMMEN OVM10 


>1081 
>1089 
>ıa1l 
>1019 
>1a21 
>1029 
»1831 
>1039 
>1941 
>1949 
>1951 
>1959 
31861 
>1069 
>1071 
>1079 
>1a81 
>1289 
>1891 
51899 
>10A1 
>1OR9 
>1eB1 
>10B9 
>10C1 
>10C9 
1001 
>10D9 
>18E1 
>18E3 
>1oF1 
>18F9 
>1101 
>1189 
>1111 
>1119 
>1121 
>1129 
>1131 
>1139 
>1141 
>1149 
>1151 
>1159 
>1161 
31169 
>1171 
>1175 
>1181 
>1189 
>1191 
>1199 
>11al 
>11A9 
511B1 
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>11F9 
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>1219 
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1241 
»1249 
>1251 
1259 
21261 
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>1271 
»1279 
>»1281 
>1299 
21291 


>1299 


>12A1 


>12A9 : 


>212Bi 
>12B9 
>212C1 


>12C9. 


>12D1 
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>1381 
21389 
>1311 
1319 
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21381 
1389 
>1391 
>1399 
>13A1l 
>13AF 
>1381 
>13B9 
>13C1 
31309 
>13D1 
>13D9 
>13E1 
>13E9 
>ı13F1 
>13F9 
>1401 
>1409 


1411 


>1419 
>1421 
>1429 
>1431 
22439 
>1441 
>1449 
>1451 
>1459 
>1461 
>1469 
>1471 
31479 
31481 
31488 
31491 
>1499 
>14Al 
>1AR9 
>14B1 
>14B9 
>14C1 
31409 
>14D1 
>14D9 
>14E1 
31469 
>14F1 
>14F9 
>1581 
31509 
>1511 
>1519 
>1521 
>1529 


>1531° 


>1539 
>1541 


Geladen und gestartet wird das 
Spiel so, als wäre es ein 
Basic-Programm. 


BOIOSODOOODOOG 
PAG 


Programmname: 
MAN 
Computertyp: 


Ci6/116/ 
Plus4 

Lauffählg auf: Floppy und 
Datasette 
Besonderheiten: Pac-Man 
mit neuen Features 





20 20 20 20 28 20 20 ;:1a 
29 20 20 2@ 20 20 28 ::1C 
28 2@ 28 20 26 28 20 ::24 
20 26 20 20 2@ 20 28 ::2C 
20 20 20 26 28 20 28 ::34 
20 20 20 20 26 20 20 ::3C 
20 28 20 20 20 26 20 ::44 
20 20 20 20 20 28 28 ::aC 
20 28 20 28 20 20 28 ::54 
20 20 20 20 20 26 20 ::5C 
28 2@ 20 16 12 03 13 ::9B 
26 ®1 BE 19 20 @B 85 ::2C 
20 14 öF 28 13 14 O1 ::65 
14 20 14 88 05 26 07 ::44 
aD e5 20 28 20 20 20 ::EE 
26 28 20 28 20 28 20 ::&C 
20 28 20 2@ 20 20 28 ::95 
20 20 20 28 28 28 26 ::9D 
20 20 28 20 28 20 2@ ::A5 
28 20 20 26 26 2a 2@ :;AD 
7 71 71 71 71 71 71 ::A6 
Am mATı mM 7m 3:21 
63 63 63 63 63 63 63 ::3F 
63 63 63 63 63 63 63 ::39 
62 63 63 63 63 63 63 ;:41 
63 63 63 63 63 63 63 ::49 
62 63 63 63 63 69 69 ::51 
63 63 63 63 63 63 63 ::59 
63 63 63 63 63 63 63 ::61 
63 63 63 63 69 63 63 ::69 
6D 6D 6D 6D 6D 6D 6D ::CF 
6D 6D &D 6D 6D 6D $D ::El 
&D 6D 6D &D 6D SD &D ::E9 
6D 6D 6D 6D 6D 6D &D ;: Pi 
44 44 44 44 44 44 44 ::35 
6D 6D 6D &D 6b 6D 6D ::D8 
6D 6D 6D 6D 6D 6D 6D ;:09 
6D 6D 6D 6D ED 6D 6D ::11 
6D 6D 6D 6D 6D 6D 6D ::19 
44 44 44 44 44 44 44 ::5D 
6D 6D 6D 6D SD 6D 6D ::08 
6D 6D 6D 6D 6D 6D 6 :: 1 
&D 6D 6D SD 6D 6D 6D ::39 
6D 6D 6D 6D 6D 6D &D ::41 
44 44 44 44 44 44 44 ::65 
6D 6D 6D 6D 6D 6D 6D ::28 
6D 6D 6D 6D 6D 6D SD ::59 
6D 6D 6D 6D 6D 6D 6D ::61 
6D 6D 6D 6D 6D ED 6D ::6A 
44 44 44 44 44 44 44 ::AE 
6D 6D 6D 6D 6D 6D 6D ::51 
6D 6D 6D 6D 6D 6D 6D ::82 
6D 6D 6D 6D 6D 6D 6D ::BA 
6D 6D ED 6D 6D 6D 6D ::92 
44 44 44 44 44 44 44 ::D6 
6D 6D 5D 6D 6D 6D 6D ::79 
$D 6D 6D 6D 6D $&D 5D :: 
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08 00 20 86 68 :: 
08 08 00 68 68 : 


20 B9 22 A2 88 :: 


9D EE @D EB EL :; 
A9 083 85 DB AS :: 
A5 DI DO FC 20 :: 
ED 3D 208 B5 3D : 
A2 068 BD 48 03 :: 
98 29 F@ 35 A9 :: 


FF A9 1D 20 D2 


20 D2 FF RA9 80 :; 
97 19 AS Di DO: 


BD 48 03 9D 32 :: 


86 DO FS AI 88 ;: 
AC IE 18 ER 19 :: 
26 EB E® 86 DO :: 
AB 87 81 BD 65 :: 


85 92 AB AB A9 ::; 


03 AI BC BD 61 :: 
8D 62 83 A9 08 :: 
a9 44 BD 64 83 :: 
ob 7E 03 A9 45 :: 
en 72 83 BD 7F :: 
8D 66 83 8D 73 :: 
03 A9 47 OD 67 : 
83 BD 81 03 AS : 
83 8D 69 83 BD : 
6B 89 8D 75 83 °::; 
8D 77 83 8D 78 :; 


83 8D 92 83 8D :: 


84 83-80 85 083 :: 
6C 083 A9 82 8D :: 
21 8D 86 83 #9 : 


083 A9 BE 8D 6E 


8D 6F 03 A9 @R :: 


AI 1C 8D 7A 893 : 
7B 83 A9 1C 8D :: 
OB 8D 7D 83 680 :: 
c3 81 DB 6E AD :: 
FF F@ F1 A2 86 :: 
68 083 85 EB EB : 
85 E9 EB BD 68 :: 


62 23 91 EB EB 


03 91 EB A@ 78 :: 
03 91 EB CB EB :: 
91 ES AB 50 EB : 
91 A6& CO ES BD :: 


Unsere Programmierer helfen Ihnen gerne weiter! Die HOTLINE ist unser Leserservice. 
‚Aber bitte wählen Sie nur die angegebene Nummer, und rufen Sie nur in der angegebenen Zeit an. 
Sie erleichtern damit den anderen Abteilungen des Verlages die Arbeit. Vielen Dank! 


HOTLINE O0 56 51 - 3 00 13 


montags von 14 - 16 Uhr 


C16 - SA 5/89 





PROCRAHKIE 


>»27E1 68 83 91 A6 AO 78 EB BD ::ES | >2R69 91 A6 AB 78 91 A6 AB 79 ::11 | >ZCF1 05 48 88 D0 08 BO 00 15 ;:AA 
>27E9 68 03 91 A6 CA EB BD 68 ::44 | >2171 91 A6 60 A2 08 AD AO 28 ::E® | >2CF9 55 55 55 54 10 00 14 08 ::4F 
»27F1 803 91 A6 EB BD 6A 83 OD ::3D >2A79 C4 293 BB 81 68 EB AQ 52 ::@D >2D81 84 19 80 14 09 @4 10 55 ::D2 
»27F9 57 083 EQ EB 26 98 Al A9 ::82 | »2AB1ı 2m CA 29 BO 01 60 EB AO ::2B | >2D89 55 55 04 15 55 55 55 54 ::2F 
»28B1 FF 8D 61 83 60 A2 808 AO ::ıD | >2A89 AG 20 CA 29 BO 01 60 EB ::D9 »2D11l 49 55 55 55 84 18 B8 14 ::5F 
»2809 50 BD 68 a3 85 ES EB BD ; :7® >»2A91 AB AE 28 CA 29 BB B1 68 ::5B >2D19 88 84 10 88 14 08 84 15 ::A6 
»2811 6@ 283 85 E9 EA BD 686 083 ::88 »>2199 ES 608 90 00 908 88 08 14 ::@B »2D21 55 55 55 54 09 08 88 80 ::9C 
»2819 85 Ad EB BD 68 03 85 A? ::8B »>2AA1 91 55 51 54 14 51 54 11 ::67 »2D29 88 11 55 55 55 54 108 48 : :DC 
»2821 EB BD 6@ 03 AD 58 03 EB ::FD | >2AA9 54 17 5® 15 51 14 14 15 ::DA | >2D31 41 81 08 15 55 55 55 54 ::8F 
>2829 BD 68 83 8D 59 83 E8 BD :: 1A >2AB1 51 15 09 15 5D 81 1® 14 ::91 »2039 12 08 RA 00 04 12 AA 95 ::44 
»2831 68 83 8D 5A 83 EB BD 52 ::78 >»2AB9 @1 11 15 15 14 15 11 54 ::92 >2D41 55 54 18 00 BD 00 84 15 ::5F 
»2839 83 8D 5B 83 ES BD 69 83 ::;49 »2Acı 05 54 11 18 45.25 54 15 ::36 22049 55 55 55 54 08 498 41 B1 ::13 
»2841 8D 5C 03 ES BD 68 83 BD ::C5 >»2AC9 55 A5 55 54 Da H0 80 00 ;::21 »2D51 88 15 55 55 55 54 0806 09 ::9C 
»2849 5D 83 E8 BD 68 83 BD 5E ::3D >2AD1 00 15 55 15 54 54 18 41 ::8C »20D59 BD 80 88 15:45 54 55 D4 ::1E 
»2851 83 E8 BD 60 83 8D 5F 83 ::11 | >2ADS 85 18 54 11 51 55 15 48 ::8E | >2D61 10 84 94 51 44 11 55 44 ;:29 
»2859 E8 BD 68 83 8D 57 03 8E ;::5F »>2AE1 15 15 94 14 54 18 81 1A ::B1 >2D69 11 84 11 54 45 35 49 2A ::D9 
»2861 F2 97 28 CB 28 AE F2 07 ::C7 | >2AE9 94 04 15 15 52 55 54 14 ::36 | >2071 14 DS 54 44 10 19 10 40 ::88 
»2869 AD 57 82 9D 68 03 CA-AD ::49 | »2AFı 11 55 44 54 85 51 00 55 ::99 { »2D79 44 15 55 54 54 54 00 51 ::87 
»2871 5F 03 9D 68 83 CA AD SE ::CB >RAF9 508 1D 55 69 55 5A 88 88.:: Fi »2D81 85 45 48 15 41 54 45 54 ::11 
>»2879 83 SD 68 83 CA AD 5D 03 :; AD »2B01 90 88 80 14 55 15 15 54 ::D6 >2D89 88 88 908 08 BB 15 54 55 ::28 
>»2881 9D 60 @3 CA AD 5C 03 9D ::BD | >2B09 14 5D 15 15 96 15 45 51 ::7E | >2ns1ı 10 44 @1 05 Al D5 54 15 : 24 
>2889 60 03 CA AD 5B 83 9D 68 ::4D | >2B1l 15 54 18 05 15 58 BA 15 ::4A | >2D99 14 91 10 04 18 10 61 11 ::7B 
>2891 03 CA AD 5A 03 9D 6@ 03 ::34 | >2B19 55 12 61 54 11 51 10 ®1 ::E3 | >2DA1 54 15 21 51 58 04 00 11 ::29 
>2899 CA AD 59 03 9D: 68 83 CA ::B2  >2B21 48 11 5ı 71 51 54 10 Bl ::6A | >2DA9 18 81 54 15 15,15 15 44 ::D2 
>2BA1l AD 58 03 9D 60 03 CA AS ::43 | ?2B29 41 51 14 15 55 55 55 14 ::61 | >2DB1 05 55 55 15 04.15 55 55 ::6D 
»2BA9 A7 9D 60 83 CA A5 A6 9D : >»2B31 a2 00 48 80 80.14 55 6A ::77 | >2DB9 55 54 08 00 Da 88 00 15 ::8B 
>»28B1 60 83 CA A5 E9 9D 60 63 ;:24 | >2839.55 54 15 51 45 05 @4 10 ::F7 | Y2DCı 55 55 55 54 14 44 44 44 ::34 
>28B9 CA A5 E8 9D 6@ 83 AE F2 ::65 ] >2B41 41 81 15 44 11 51 45 50 ::9C | >2DC9 44 18 08 O8 GQ 14 14 00 ::5E 
»26C1 87 EB E@ 26 BO 83 AC 88 ::CE | >2B49 54 15 17 54 51 48 84 15 ::6@ | >2DDi 08 98 BA 1a OD 98 AA 1A ::90 
>28C9 28 68 AD 57 03 C9 01 D@ ::88 | >2B51 44 15 54 15 51 05 74 18 ::99 | >2DD9 14 06 Q0 02 04 18 @0 OB ::96 
»28D1 82 AO 0@ C9 02 DE 02 AB ::57 | >2859 18 41 41 04 54 14 55 55 ::08 | >2DEL 82 14 1A 44 44 45 04 15 ::3A 
>28D9 52 C9 03 DE 02 AB AO C9 ::A@ | >2B61 45 44 08 90 90 0% 98 15 ::@1 | >2DES 55 55 55 54 00 08 @8 08 -:64 
>»28E1 94 DO 02 AQ AE 28 CA 29 ::ıD | >2B69 55 55 45 54 11 01 84 45 ::51 | >2DFi 86 17 DI 55 45 54 00 11 ::EC 
»268E9 BO 76 20 Ei 29 AD 57 83 ::ES | >2B71 00 15 15 44 55 54 ®1 58 ::3D | >2DF9 14 44 08 15 55 41 55 54 ::38 
»28F1 C9 81 FO &C Ca 82 FO 1F. ::65 .| >2B79 44 14 18 17 11 45 55 54 ::92 >2EB1 11 15 28 54 AA 18 D1 69 ::35 
>»28F9 C9 63 FO 32 C9 04 FO 45 ::45 ! >2BB1 10 11 04 44 @B 15 55 54 ::6B | >2E09 40 84 11 15 28 54 44 15 :-AA 
»2991 38 A5 EB E9 58 85 EB 38 ::CE | >2BB9 44 AB 01 4a AD 54 86 19 ::89 | >2E21 55 41 55 54 08 11 14 Aa ::77 
>2909 A5 .A6 E9 58 85 A& BO 84 ::0B »2B91 55 55 55 84 00 00 88 08 ::CA >2E19 88 15 51 55 45 54 88 00 -:09 
>2911 C6 EI C6 A7 4C 5A 29 18 ::37 | ?2B99 88 15 15 55 54 54 01 18 ::AA | »2E21 00 08 Q0 11 55 55 55 44 ::AD 
>2919 AS EB 69 @2 85 EB 18 A5 ::D3 | ?>2BA1l 14 04 48 11 51 55 45 44 ::02 | 32E29 11 48 04 41 54 11 AR 14 ::B8 
»2921 A6 69 02 85 A& 98 94 E6 ::C6 | ?Z2BA9 18 51 al 45 84 15 55 7D ::2A | 22E31 55 14 15 02 18 05 34 B1 ::E5 
»2929 E9 E6 A7 AC 5A 29 18 AS ::BA | ?2BBt 55 54 1a 51 41 45 04 11 ::D4 | 2639 46'54 55 14 11 44 85 41 :: BC 
»2931 EB 69 50 85 EB 18 A5 A6 ::E3 | ?2BB9 51 55 45 44 81 10 14 04 ::CF | y2Eal 54 11 45 17 45 44 11 45 ::AQ 
>2939 69 5@ 85 A6 96 04 E6 E9 ::9C | ?2BC1 AB 15 15 55 54 54 B6 00 ::85 | >2E49 10 @4 @4 15 55 55 55 44 ::09 
>2941 E6 A? AC 5A 29 38 AS EB :;:CA | ?28C9 BB 09 99 10 Ai DA 18 AB ::@1l | „2ESı 08 08 QB 00 08 19 55 36 ::1B ° 
>2949 E9 82 85 EB 38 AS A6 ES ::56 | ?2ED1 18 41 04 18 AB 15 55 55 ::99 | 33E59 56 48 15 95 95 65 48 15 ::9F 
»2951 @2 85 A6 BO 04 C6 EI ca ::7P | ?2BD9 55 54 10 a1 04 10 AB 16 ;:E9 | 33E61 59 55 55 58 19 55 99 59 ::63 
>»2959 A? 20 16 2A 28 4B 2A 68 ::DB | ?2BEI 41 84 10 48-15 55 55 55 ::E7 | 32E69 54 15 59 55 95 94 15 95 ::10 
>2961 20 74 2A E6 04 DB 81 68 ::8p | ?2BE9 54 19 a1 84 10 48 18 41 :;A3 | 32671 95 55 54 25 55 56 59 54 ::2A 
>»2969 AD 08 FF C9 40 98 BC C9 ::9c | ?2BF1 84 18 AD 15 55 55 55 54 ::EE f 32579 81 96 65 55 40 81 55 55 ;:98 
»2971 80 98 1A C9 CO 98 28 C9 ::2C | ?2BF9 00 86 BO @02 90 11 55 55 ::85 | )2E81 55 40 00 08 OU 08 90 15 ::2C 
»2979 FF 90 36 AB 08 20 CA 29 .:47 1 >2C01 55 44 11 56 AA 55 44 15 ::69 |.22E89 Sı 55 55 54 1® 11 55 55 ::B2 
>2981 98 03 AC 69 29 A9 G1 BD ::FA | ?2C09 SA FE 95 54 11.6A FE AS ::85 | y2ES1 54 15 51 Aa 08 14 10 11 ::AQ 
»29989 57 083 4C CH 28 A® 52 28 ::E5 | ?2C11 44 11 5A FE 95 44 11 56 ::51 | 32E99 4a 98 14 15 51 48 50 14 ::7C 
»2991 CA 29 90 03 AC 69 29 AQ ::E5 | ?2C19 AR 55 44 11 55 55 55 44 ::C9 | »2EA1 18 11 40 AB 14 15 51 49 ;::5A 
>»2999 82 8D 57 03 4C CB 28 AQ ::45 | ?2C21 19 BR 18 08 04 15 55 55 ::1A j >2EA9 AO 14 86 15 55 55 54 15 ::8E 
>»29A1l AB 20 C4 29 98 03 AC 69 ::D8 | ?2C29 55 54 88 DB 08 08 BR 16 ::D2 | »2EB1 51 55 55 54 80 08 BR 00 ::29 
>»29A9 29 A9 83 BD 57 83 4C CB ::BB | ?2C21 @aı 40 10 08 10 00 46 18 ::9E | »2EBS 98 15 55 55 55 54 11 40 ::7C 
>2981 28 AB 4E 28 CA 29 98 03 :;7E | ?2C39 80 11 50 55 55 58 19 10 :: »2EC1 14 81 44 15 15 55 54 54 ::78 
>»29B9 4C 69 29 A9 04 ED 57 03 ::FA | ?2C41 48 18 00 15 55 46 18 BQ ::BA | Y2EC9 18 14 28 14 04 15 10 28 ::39 
>»29C1 AC CB 28 Bi ES C9 40 Fa ::86 | ?2C49 8ı 01 81 55 88 21 61 08 ::DC | >2EDI 04 5a 18 14 28 14 84 15 ::2FP 
>29C9 OE C4 48 FO @A C9 AaC Fü ::A6 | ?2C51 10 08 05 BI 48 15 48 BB ::1E | >2EDY 15 55 54 54 11 40 14 @1 ::7B 
>2901 88 C9 58 FO Q4 18 60 38 ::48 | ?2C59 48 MB BD 88 BD 008 08 08 ::85 | >2EE1 44 15 55 55 55 54 08 08 ::71 
>29D9 68 A9 @1 8D 53 03 18 68 ;:44 | ?2C61 88 15 45 55 51 54 18 44 ;:F7 | »2EEO 60 09 Ba 15 54 08 05 44 ::52 
>»29E1 AB. 50 AD 58 03 91 E8 CA ::BE ! ?2C69 14 11 84 13 54 55 15.44 ::78 | >2EF1 10 05 00 04 AA 00 1 54 ::44 
>»29E9 AD 59 03 91 E9 AO 78 AD ::B6 | ?2C71 15 85 Aı1 50 54 18 15 08°::56 | >2EF9 14 54 00 00 085 50 44 OR ::B8 
>29F1 5A 03 91 EB CB (AD 5B 03 ::50 »2C79 54 B4 19 85 41 50 94 11 ::19 >2F01. 80 08 00 54 20 08 08 08 ::88 
>29F9 91 E86 Ad 58 AD $C 083 91 ::C9 »2C81 54 55 15 44 18 BA 14 11 ::76 | >2F09 44 15 55 55 55 44. 82 22 ::58 
»2AB1 A6 CO AD 5D 83 91 A6 AQ ::DB | ?2C89 BA 15 45 55 51 54 89 BB ::93 | »2F11 22 22 04 15 55 55 55 54 ::A0 
>»2A09 78 AD SE 03 91 A6 EB AD ::C4 | ?2C91 00 08 00 14 45 1A 45 14 ::85 | 22F19 00 ER DD 02 08 11 58 88 ::DE 
»2Al1 5F 03 91 A6 66 AD 50 Bl ::43 | ?2C99 2C 45 15 45 14 20 55 55 :;ED | >2F21 55 54 11 18 00 48 00 11 ::C8 
»2A19 EB 8D 58 03 CB Bi EB ED ::27? >»2CA1l 15 54 31 51 45 15 54 3D ::6C | >2729 10 44 48 08 11 15 55 54 ::76 
»2A21 59 @3 A® 78 Bi EB 8D 5A ::FA »2Ch9 11 45 55 40 81 14 54 55 ::E® | 32F31 BC 11 00 44 44 oc 11 00 ::B1 
>2A29 83 C8 Bi EB 680 5B 83 AG ::91 f >2CBl 54 15 44 54 55 54 11 45 ::B7 | 32F39 44 04 0C 15 00 44 OB FC :-Fi 
»2A31 50 Bi A6 8D 5C 83 c8 Bl ::11 >2CB9 45 45 44 11 55 45 45 44 ::@E | >2F41 080 08 44 00 08 15 55 45 ::35 
»2A39 A6 8D 5D 03 AO 78 Bi A6 ::3D | >2CC1 BB 08 80 00 00 15 40 54 ::CB | >2F49 55.54 88 08 08 08 0a 15 ::ıD 
>2A41 8D 5E 93 CB Bi A6 BD SF ::99 | ?2CC9 05 48 14 51 45 14 58 18 ::7B | >32F51 51 55 45 54 15 51 41 45 ::DB 
>2A49 83 60 A9 48 Aa 50 91 EB ::88 | ?2CD1 15 a1 59 14 14 51 45 14° ::21 | 22759 54 10 15 886 54 84 00 01 ::PF 
»2A51 CB A9 49 91 EB AY 4A AQ ::90 | ?2CD9 58 15 Aa 54 06 AB 18 Si ::5D | »2F61 98 AD 00 AA B1 BE 4B 08 ::49 
»2A59 78 91 Ed C8 A9 AB 91 EQ ::3B | ?2CEIl 45 14 50 18 15 01 58 14 ::E9 | »2769 aa B1 BO 40 20 1a 15 82 ::8D 
>2A61 A9 6E AB 50 91 As AB 51 ::M >2CE9 14 51 46 14 56 15 80 54 ::1B | »2F71 54 84 15 51 41 45 54 15 ::56 


aa 
”- 
[83 
® 


SS 
> 
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BEE IPROSLY/ALILME 


>2F79 51 55 45 54 00 08 08 08 ::C2 | >3201 04 08 55 55 55 5a 00 0A ::2B | >3489 66 66 66 66 28 28 66 66 ::13 
‚>2F81 68 11 15 14 54 54 11 15 ::1C | >3209 00 08 00 15 55 55 55 54 ::29 | >3491 66 66 56 28 66 20 28 66 ::77 
»2F89 2B 54 54 15 05.28 58 54 ::Bi | 33211 11 11 28 44 44 11 11 28 ::6F | 293499 66 20 66 66 66 66 6620 ::69 
»2F91 14 55 55 51 54 18 45 55 ::58 33219 44 44 11 11 28 44 44 11 ::52 »34A1 FF 00 08 88 08 80 90 FF ::CC 
>2F99 55 54 15 45 55 58 46 11 ::E9 »3221 11 80 44 44 11 11 28 44 ::33 i 
>2FAl 95 28 50 40 11 15 28 54 ::AB | 53229 44 11 11 28 44 44 11 11 ::7F 
»2FA9 40 15 15 14 54 54 00 88 ::6D | 33231 28 44 44 15 55 55 55 54 ::CD 
>2FB1 00 08 00 15 54 BB 55 54 ::1B } 39239 00 020 00 00 00 15 55 Al ::44 
»2FE9 18 84 44 AO 94 11 54 44 ::B2 »3241 55 54 15 5F FF F5 54 15 ::D8 
>»2FC1 55 44 11 15 35 55 44 15 ::7F »3249 SF FF F5 54 15 5F FF F5 ::4B 
»2FC9 50 08 85 54 11 15 55 55 ::75 >»3251 54 1A 80 00 02 A4 15 5F ::FB 
>2FDi 44 11 54 44 55 44 10 04 ::43 | 33259 FF F5 54 15 5F FF F5 54 ::EC 
>2FD9 44 AB 6a 15 54 BB 55 54 ::13 | 33261 15 SF FF F5 54 15 55 41 ::B4 | >37F9 08 00 00 00 00 08 08 08 ::38 
»2FEl 08 00 00 00 88 10 00 15 ::18 | »3269 55 54 00 00 02 28 008 00 ::98 | >3801 20 08 00 20 22 28 80 7C ::19 
»2FE9 55 54 10 0@ 15 55 54 18 ::78 | 9>3271 00 C9 6B DO 09 AS E7 C9 ::5A | >3809 FE EE FE FE EE EE 08 FC ::27 
»2FFi 06 15 55 54 18 00 15 53 ::24 | »3279 32 DO 083 AC 83 32 20 95 ::F9 | >3811 EE FE FC FE EE FC 88 7C ::8D 
>2FF9 54 15 55 55 55 54 00 08 ::9A | »3281 1F 68 A9 1E:2@ D2 FF 28 ::8A | >3819 FE EE E® EE FE 7C 00 FC ::41 
>»3801 15 55 54 RO 80 15 55 54 ::5D | >3289 67 (5 AS DI 85 D® A9 32 ::93 | 3821: FE EE EE EE FE FC 08 FE ::B3 
>»3009 28 80 15 55 54 O8 08 15 ::18 | >3291 85 Di A9 FA 85 D2 A9 OC ::49 | >3829 FE EB FC EO FE FE 00 FE : :6D 
3011 55 54 00 0@ 00 66 80 15 ::E6 | >3299 85 D3 AD 08 B1 Da C9 FF ::A2 | >3831 FE FO FE FE EO EB 00 7C ::99 
»3819 15 15 15 14 ıF 19 15 15 ::6B- | >32A1 F@ 11 91 D2 E6 DO-D@ 82 ::FE | >3939 FE EB EE E6 FE 7C 08 EE ::DF 


Der Bereich von 9 3449-8 37F1 


kann mit $ FF gefüllt werden. 





>3021 14 @9 15 15 15 14 15 55 ::1A | >32R9 E6 Di E6 D2 DO 02 E6 D3 ::5B | 33841 EE FE PE FE EE EE 00 FE ::7F 
>3029 55 55 54 @8 15 55 55 5@ ::BE ] >32B1 AC 9D 32 A9 286 OD 11 FF :: >3849 FE 38 38 38 FE FE 8@ 3E ::51 
>3031 15 95 55 55 54,15 15.15 ::D® | >32B9 A9 83 6D 18 FF EE 19 FF ::B7 | >3851 3E OE @E CE FE 7C 80 E6 ;:53 
>3039 15 14 15 15 15 15 14 15 ::54 | »32C1 EE @F FF A2 01 AG @1 CA ::AB | >3859 EE FE FC FE EE E6 88 EB ::71 
»3@41 15 15 15 14 00 @@ 56 @9 ::3P | >32C9 DD FD 88 D® FA AC BE 32 ::09 | >3861 E@ E® E® &0 PE FE 08 6C ::A3 


>3049 68 17 15 41 55 54 11 35 
>3051 41 8@ 4 11 54 a1 51 CA 
>3@a59 18 46 41 11 84 15 54 55 


:AA >»32b1 66 28 20 20 66 20 66 66 ::41 >3869 FE FE FE EE EE BE 80 7C ::67 
:93 | >232D9 66 66 66 20 66 20 208 28 ::8D | >3871 FE 
:A6 >32E1 29 20 66 28 20 20 28 20 ::65 >3879 FE 
3961 11 44 10 A4 di 18 44 11 ::73 »>32E4 20 29 20 25 20 28 26 20 ::9B | >3881 FE 
23969 54 41 15 44 18 84 41 89 .::ED »32F1 28 20 20 23 20 20 20 28 ::A3 } >3889 FE 
»2@71 84 15 55 41 55 54 28 86 ::73 }.>32F9 66 20 20 28 66 28 66 28 ::39 | >9891 FE 
»3979 89 90 86 19 5A S6 95 A4 ::B6 3301 29 28 28 20 66 28 28 2Q ::12 | >3999 FE 
>»3881 15 55:55 55 54 24 06 18 ::BF >3309 20:28 66 29 28 20 28 20 :;8E | >36R1 FE 
23889 00 18 24 55 51 55 18 14 :;84 »3311 20 28 28 28 28 20 26 28 ::C4 | >3825 = 
EE 
EE 
EE 
FE 
38 
ER 
ac 


4 
32] 
5 
5 
[u] 
[32 
5 
= 
» 
2 
ke 
= 
’z 


we aa en ur ae ae AT EA Er in 


SI] 
® 
© 
Fe] 
[.] 
” 

"J 
Le] 


23891 55 51 88 14 24 55 51 55 ::99 »3319 29 28 20 20 20 20 20 26 ;:CC | >36Bi 
3099 5B 24 88 11 55 50 15 55 ::Ai >»3321 66 28 20 20 66 20 66 66 ::92 | >38B9 


>30Al 55 55 54 19 5A 56 95 A4 ::29 33329 66 20 20 20 66. 28 20 28 ::80 | >38C1 


>30A9 88 08 98 080 98 11 55 55 >»3331 20 20 66 20 26 26 20 28 ::B6 | >38C9 


rue 
. 


3A 
>»3@B1 55 54 16 45 45 51 48 15 ;:C9 3339 26 28 20 20 20 20 20 26 ::EC | >38D1 
>»30B9 55 44 15 44 18 41 85 14 ::AE >3341 20 28 20 290 20 28 20 20 ;:F4 | >36D9 
>38C1 54 11 51 59 50 54 15 15 ::71 >3349 56 20 66 20 56 20 66 20 : 
>30C9 18 55 54 15 04 14 41 34 


»39D1 05 54 55 45 84 15 55 75 


:5C >3BE1 


@ 
8 
@ 
© 
ww 
= 
w 
a 
® 
= 
» 
» 
ou nun 
“a 
© 


EE 
EE 
EE 
Eo 
38 
ER 
EE 
EE 
FE 
EE 
ı1C 
38 
AR 
erh 23351 20 20 28 20 66 28 20 28 ::62 >38E9 ac 
>3359 26 26 66 29 28 28 26 28 ::DE | >38Fi 18 3C 
>30n9 55 44 88 00 20 86 08 11 ::6E >3361 28 28 20 20 20 28 20 28 ::14 >38F9 19 28 
>38E] 51 51 53 94 11 11 11 13 ::D? >3369 28 20 20 28 28 20 20 28 ::ıiC | >3981 09 96 
>30E9 04 11 11 11 13 86 11 11 :;i4 >3371 66 66 20 66 66 20 66 56 ::86 23989 18 18 
»38F1 11 13 80 11 11 11 13 00 ::DC 33379 66 65 66 20 66 66 66 66 ::EC | >3911 66 CC 
>»38F9 11 11 11 13 08 19 19 19 ::EB »33B1l 66 20 66 66 66 66 66 20 ::50 3919 08 9% 
>»31@01 ıB 86 98 08 9a 0a 88 14 ::ED 3389 28 28 20 28 208 20 20 28 ::3C | >3921 89 88 Sc 
>3189 08 a9 88 14 080 92 80 08 ::BA »3391 28 22 20 20 28 28 20 28 ::44 | >3929 08 08 38 a3 80 808 89 66 ::2E 
08 
FF 
38 
ic 
38 
38 
08 
89 
CL) 
BE 
gE 
rF8 
CE 
BE 
EC 
Ed 
EO® 
1E 
FE 
FE 
38 
ıc 


u 
- 
> 
u 


»3111 88 15 55 54 55 14 81 01 ::EB »3399 28 28 28 20 28 20 20 20 ::4C >3931 6B 
»3119 55 41 14 15 45 45 51 64 ::FF >33A1 20 28 28 20 22 20 20 29 :;54 >3939 FF 
»3121 10 54 81 51 88 11 45 45 :;:C2 >»33A9 28 28 28 20 20 20 20 20 .:5C >3941 18 
»3129 51 54 17 41 44 88 54 15 ::E4 »33B1 2a 20.28 20 20 28 20 20 ::64 >3949 08 
»3131 85 45 51 58 11 54 41 91 ::C0 »33B9 20 20 20 208 20 26 20 28 ::6C 3951 EE 
>»3139 14 11 54 55 15 14 94 80 ::D1 >33C1 20 20 28 20 20 20 20 20 ;;74 >3959 38 
»3141 89 06 28 14 55 55 55 26 :: FC »33C9 20 20 20 20 20 28 28 28 ::7C >23961 89 
»3149 14 49 40 81 28 14 45 55 ::9D »33D1 28 28 28 208 28 20 29 28 ::; >3969 09 
»3151 51 28 15 45 55 51 A8 0806 ::9D »33D9 29 20 2% 20 20 20 20 28 ::8C >3971 88 
»3159 45 69 51 a8 2A a5 55 51 ::PF »33E1 20 20 24 20 28 20 20 29 :;94 »3979 07 
»3161 Ad 28 45 55 51 28 28 48 ::4AA >33E9 66 66 66 66 20 208 66 66 ::72 >3961 FE 
>3169 08 B1 29 26 55 55 55 28 ::EE »33F1 66 66 66 20 66 66 28 28 ::4A >3989 FA 
»3171 88 86 00 88 88 15 55 55 ::1B »33F9 66 20 66 66 66 66 66 28 ::C8 | 33991 FE 
:AB »3401 20 20 29 20 20 28 28 20 ::BS >3999 FE 
»3499 20 20 26 20 28 28 20 28 ::Bb >39Al E& 
1:65 »3411 66 28 29 20 66 20 66 20 ::53 >39A9 FE 
>»3191 80 18 48 ZA 87 55 D2 AB ::E9 »3419 2a 208 66 28 66 28 66 28 :;E7 >39Bi FE 
»3199 29 84 2A 12 68 2A 85 55 ::92 >3421 66 20 66 208 20 28 28 28 ::ED >39B9 FE 
»31Aı1 52 AS 808 88 08 88 68 55 ::1C »3429 20 208 26 28 26 20 28 20 ::DD >39C1 EE 
»31A9 55 55 55 09 06 4A 55 11 ::4B »3431 20 28 20 20 20 20 28 28 ::E5 >39C9 EE 
»3ıB1 9a 89 44 Al 11 88 15 44 ::BA >3439 66 28 20 20 66 20 66 28 ::7B »39D1 38 0» B& 38 38 08 088 ::ıA 
»31B9 55 11 54 10 80 88 98 BA ::BD >3441 20 28 66 20 66 28 66 28 ::0&F >39D9 029 88 da ic IC 38 iE ::F6 
»a3ic1 15 44 55 11 54 O8 44 41 ::5R | >3449 66 20 66 66 66 20 20 20 ::8B >39E1 38 79 EG 70 38 1E 90 88 ::5E 
»31C9 11 09 08 Aa 55 11 08 00 ::2A »3451 29 20 20 20 28 20 20 20 ::85 >39E9 7E 7E 88 7E 7E 80 98 FO ::8A 
»31D1 55 55 55 00 92 08 BB 08 ::D28 »3459 28 20 28 20 28 28 20 28 ::8D >»39F1 38 1C QE 1C 38 FO BB 30 ::CC 
>31D9 88 15 15 55 55 48 18 i@ ::EO »3461 66 20 20 20 66 20 66 20 :;A3 >239F9 7E @E 3C 38 68 38 09 7F ::A8 
»31E1 10 18 40 15 44 14 51 44 ;::79 »3469 20 20 66 20 66 28 66 28 ::37 >3A01 EFF FFFFFFFEFFFF FC ::FF 
»31E9 1@ 55 51 55 54 15 44 AA ::39 »3471 66 20 66 20 2@ 208 2Q 20 ::3D >3A@9 FE-FE FE FE FE FE FE FF ::83 
»31F1 51 54 15 51 55 51 44 08 ::09 »3479 20 26 20 28 28 26 20 28 ;:2D >3A1ll FF FF FF FF FF 7E 06 FE ::26 
»31F9 55 41 iS 44 80 14 55 54 ::BB >»3481 29 29.28 20 22 206.20 28 ::35 >3A19 FE FE FE FE FE FC 99 088 ::ı1D 


“7 
7 
w 
2 
© 
S 
= 
=» 
© 
© 
or en. 
” 
oa 
© 


ic 38 FE FE 00 7C ::62 


EC FE 7E 0C 20 FE :: FC 
FE ®E FE FC 08 7E ;;:AQ 
FC EE FE 7C 89 FE ::22 
ıC 38 38 38 80 7C ::AG 
7C FE EE 7C 88 7C ::BE 
7E BE FE 7C 08 008 ::7C 


»3179 52 AB 10 06 98 12 6B ID; 
>»3181 57 55 D2 AB 10 86 80 18 
»3189 46 15 57 55 DS 54 01 94 


“© 
“a 
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PRO@KAMME Ba 


>»3A21 02 00 00 @B 23 97 87 BA ::C5 | >3BEl 08 DR a0 20 00 @a QQ iF ::14 }.?2DAl D> AC 25 18 05 15 25 35 ::60 
>3A29 00 a0 @6 20 CO EO E® 87 ::BB | >3BES ıF 1F ıF BF OF 07 O1 Fc ::76 | ?3DA9 45 55 65 75 75 65 55 45 ::FA 
>»3A31 07 83 080 08 00 20 @a@ ED ::78 | >3BFi FC FC FC FB FB Fo Co 7F ::34 >3bBl 35 25 15 85 A9 @D 85 DB ::BE 
>»3A39 E® CQ@ 00 GB 08 BA 88 Or ::4B | >3BF9 7F 7F 7F 3F 3F IF 07 F3 ::E@ | ?3DB9 A9 13 20 D2 FF 28 D2 FF ::DE 
>3A4l 3F 7F 7E FF Fi FF FF FO ::59 | >3c01 F3 Fa F3 El El CO 088 FF.::56 | >3DC1 A9 00 B5 CA A9 Ac 65 CD ::FE 
:3A49 FC FE FE FF BF FF FF F? ::E7 | >2C89 FF FF FF FF FF FFO3F FF ::E1 | >3DC9 28 SE DE 28 04 DF A9 13 ::81 
»3A51 FO FO FF FF F3 F3 61 EF ::F4 >»3c11 FF FF FF FF. FF FF FF FE ::21 >3DD1 28 D2 FF 208 D2 FF A9 27 ::3A 
>3A59 @F 1F FF FF CF CE 86 öF ::E® | >3C19 FE FE FE FC FC F& E@ ßF ::8D | ?3DD9 85 CA A9 OB 85 CD 20 60 ::9D 
>3A61 aF 7F 7F FF EF FF FF E® ::3F | >3C21 3F 7F 7F FF FF FF FF 86 ::01 | ’3DE1 DE 20 F6 DE C6 DS DA DO ::Ba 
»3A69 FB FC CC CE FE FE FE FF ::03 | >3C29 cCı E3 F? FF FF FF FF 76 ::7B | ?3DE9 20 88 Da 60 75 A9 ®E OD ::76 
»>3A71 FF FF 7F 7F 3F OF @@ FE ::A6 | >3C31 FE FF FR FF FF FFFF 91 ::58 | >3DF1 14 03 A9 CE BD 15 03 58 ::8F 
>3179 BE CO FC FC FB EO 0Q 87 ::25 | >3C39 07 OF OF 9F 9F 9F SF FF ::69 | >3DFS 68 28 26 DF 26 1D DF 26 ::2B 
>3ABl IF 3F 33 73 7F 7F IF PO ::2B | >3C41 FF FF FF FF FB Fa FO FF ::73 | >3EB1 88 DB 28 SB DC 28 17 81 ::FB 
>3A89 FC FE FE FF FF FF FF FF ::97 | >3C49 FF FF FF FP IF IF 1F.00 ::49 | ?3E09 26 C9 C7 20 3E DD 28 9C ;:F2 
>»3A91 7D 83 3F 38 ıF 07 00 FF ::C4 >3Cc51 C® Ei Ei F3 F3 F3 F3 38 ::54 >3E1l1 F3 26 8A FF 28 E?7 FF 29 ::ıiF 
»3A99 FF FF FE FE FC F@ @@ OF ::C6 | >3C59 FE FF PF FF FF FF FF 06 ::7& | >3E19 81 FF A9 08 80 19 FF 8D ::89 
>3RA1 38 67 SF DS BB BB BS EB ::6F | >3C61 83 @7 87 BF 8F BF CF E@ :;CD | >3E21 15 FF AQ 88 6D 07 FF A9 ::B9 
>3AA9 38 CC FA 76 BA BA 7A BB ::93 | >3C69 FO FC FC FE FE FE FE FF ::55 | ?3E29 39 80 12 FF AS 39 BD 13 ::82 
»>»3AB1 BR DA SF 67 38 OF 08 BA ::51 »3C71 FF FE FF FF FF FFEF FF ::89 »3E31 FF A2 00 BD 48 3E 9D 32 ::35 
>»3AB9 BA 76 Fa CC 38 Eb 88 97 ::35 >3C79 FF FF FF FF FF EFF? FF ::59 | ?3E39 63 EB E& 16 DR FS5 69 30 ::39 
>3AC1 1F 3F 7F 7E 38 08 00 EB ::25 | >3C81 FE FF FF FF FF FF FF 9F ::99 | ?3E42 30 36 31 30 30 83 08 12 ;:2C 
»3AC9 F8 FC FE 3E 1E 3E FC 83 ::EB | >3C89 9F 9F 9F 9F.9F 9F 9F F@ ::a9 | ?3E49 89 13 14 89 81 GE 20 16 ;:CcF 
>3ADi 87 87 87 da 07 07 88 FC ::62 | >3C91 ES FF EF FF FF FF FE AF :;9B | ?9E51 12 09 85 14 086 A9 00 85 ::58 
>3AD9 Fa EB 80 00 86 8@ DB BF ::43 | >3C699 AF FF FF FF FF FF FF F3 :;91ı | ?3E59 Da A9 0C 85 Di A9 00 95 ::24 
>3AE1 3F 7E IF FF PR FF FFFF ::B? |] >Scht F3.F3 PS F3 F3 F3 Fa FF ::69 | ?2E61 D2 R9 08 65 D3 A9 39 95 ::BB 
>3AE9 FF FF FF FF C1 88 86 F@ ::1E | >3CA9 FF FF FF EFFFFFFF CH ::a1 | ?2E69 D4 A9 18 65 DS A9 22 85 2:46 
>3AF1 FE FF FF FF FF FF FF @1 ::16 | >3CB1 CF EF EFEF FF FF FF FE ::01 | ??E7% D6 A9 14 95 D7 A0 00 Bi ::A2 
>»3AF9 87 OF BE 9F 9 9F 9F FF >3CB9 FE FE FE FE FE FE FE FF ::B5 | ?3E7% D4 F@ IF 91 DO Bi D6 91 ::Aa 
>3501 FF FF FF FF FB F@ FO FF ::32 | >3CC1 FF FF FF EF FF EF FF ES ::F9 | ?3E81 D2 E6 D6 E6 D2 D8 84 E6 ::AB 
>3B89% FF FF FF FF 3F 1F 1F 08 ::88 | >3C69 E3 E9 E3 EA E3 E3 E3 FF ::pı | 23E89 DI E6 DI E6 DA Da 22 E6 ::87 
>3B11 C® El E1 F3 F3 F3 F3 3F ::4B ] >3CD1 FF FF FF FF FF FF FF 9P ::EQ | ?3E91 D5 E6 DE DO 02 E6 D7 ac ::Ei 
>3B19 FF FF FF FF FF FF FF FF ::38 1: >3CD9 9F 9F 9F 9F 9F 9F 9F FC ::59 | ?3E99 78 3E 68 A5 C6 C9 40 FO ::53 
>3B23 FF m FF FF FF FF FF EO ::48 | >3CE1 FC FC FC Fc FC FC FC 7F son ER ” ” 2 2 ER = 2 2 
vs: 7 7F 7? 2; va 

>3B29 F& FC FE FE FE FE FF ::14 >3CE9 7F 7F 7F 7F ET en re 


at a ar 18 0 


oe 
“ 


on. 
» 
n 
SI 


a. 
.. 

ze 
u 


>3B31 FF FF FF FF FFEFFF 88 ::58 | >3cFı F3 Fa F3 F3 F3 F3 F3 FF ::B9 
>3B39 Ci FF FF FF FF FF FF FF ::12 |. >3CF9 FF FF FF FF FE FF FF FF ::ı1 | ?3EB9 E6 16 DB F5 60 A9 00 BD ;;:85 
»3Baı FF FF FF FF FE FB 08 9F ::3@ | >30801 FF FF FF BE BF BF 9F FE ::B2 | ?3EC1. 11 FF 60 A9 03 BD 4E 03 ::69 
>3B49 9F 9F AF 1F IF 1F 1F FO ::EO | >3089 FE FE FE FE FE FE FE FF ::06 | ?3EC9 A9 30 BD 50 83 A9 390 8D ::BA 
>3B51 F8 FF FF FF FFFF FE IF ::5A | >3b11 FFFF FF 7F 7F 3F BE E3 ::B3 | ?3EDI 51 03 A9 08 BD 07 FF AS ::AD 
>3B59 3F FF FF FF FF FF EFF3 ::5@ 1 >3D19 E3 E93 ES C1 Ci 80 00 FF ::69 | ?3ED9 30 A2 00 9D 48 03 EB EO ::Di 
»aB61 Fa Fa F3 F3 Fa Fa F3 EP ::28 | >3D21 FF FF FF FF FF FE 38 9F ::c3 | ?3EEl 06 DB F& A9 98 85 E6 A9 ::08 
»3B69 FF FF FF FF FF FF FF FF s:86 | >3D29 9F 9F 9F @F OF 07 91 FC ::B8 | ?3EE9 2A 85 E7 A9 88 BD 52 23 ::58 
>3B71 FF FF FF FF EB 830 88 FE ::72 | >3D31 FC FC FC Fö FB F@ CO 7F ::E6 | >3EFI 8D 53 83 aD 54 09 A9 7A ::CA 


>3B79 FC FC FB EB 88 006 00 FF ::@8 | >3039 7F 7F 7F IF er a 87 F3 ::2A zaEr® > 4 3 r er En «x 
>3BB1 FF FF 23 »3D41 F3 F3 F3 Ei El CO 08 FF ::91 $ 
Me DOW IERGER EEE EN 0 5 >3F09 85 E5 A9 78 8D 55 93 8D ::8E 


»388% Fa F6 F@ FO F@ FO F@ OB ::iC | >3D49 FF FE PF FF FF FE 38 9F ::EB 27 
>23B91 ab 28 66 00 08 O® @@ 1F ::Ca4 | >3DS5i1 9F BF SF 07 07 03 08 FE ::39 | ?3F1l1 56 03 A9 80 EA EA EA 60 ;:1B 
33896 IF AF IF AF AF AF AF FC ::18 | >3D59 FE FE FE FC FC F8 E8'78 ::ı6 | ?3F19 FF FFFF FF FF FF FF 09 ::3C 
>3BAl FC FC FC FC FC FC FC ?P ::64 | >aD6r A9 75 OD 14 03 A9 3D BD ::40 | ?3F21 00 80 a0 20 00 @d Da oo ::60 
>3BA9 7E 7F 7P 7E 7F 7E 7F P3 ::60 | >3D69 15 93 A9 01 85 DB A9 00 ::08 | ?>F29 99 08 aa aa 0a 00 00 FF ::60 
>aBBi F3 F3 F3 F3 F3 F3 F3 FF ::78 | >3D71 85 DO EA 60 C6 DB FO @3 :;:B9 | °2F3l FFEFFFFFFFFFEF FF .;4C 
33BB9 FF FF FF FF FF FF FF 08 :;b8 | >3079 ac 25 18 A9 03 85 DB A6 ::7n $ 23639 FF FF FF FF FFFFFFFF ,;54 
>3BC1 80 88 EO FF FE FF FF 00 ::86 | >2D81 D9 AB 08 BD AS 3D 99 98 ::61 ! ?OFAl FF 00 00 FF FF 88 88 FF ::6E 
>3BC9 00 00 0@ E@ FB EC FC FF ::20 | >3089 05 EB EB 10 DB 92 A2 00 ::aB | ?>F49 FF 00 00 FF FF 08 00 00 ::7E 


»>3Bdbı1 FF FF FF 7F 7F 3E BF FO ::EQ >3D91 C8 Ch 27 DE EE E6 D9 A5 ::EC 
»3BD9 FO FO FO EB EO CO O0 99 ;;14 >3D99 D9 c9 18 DB 04 A9 08 85 ::E3 ENDE DES LISTINGS (OVM) 


u  Wußten Sie schon... 


„.das es alle Pro- 
gramme aus diesem 
Heft bereits lauffähig 


auf Kassette und Dis- 
kette gibt? 

Bestellen Sie noch 
heute! ; 
Tronic Verlag GmbH 
Stad 35° i 
3440 Eschwege 
Tel. 0 56 51 /3.00 11 


Tronic-Verlag GmbH 
mm 


via 





BEE PROSKV/AMME 


Kettenreakti 





Ein Strategiespiel, bei dem es 
um Explosionen geht, liegt mit 
dem Spis! Explosion vor. Es 
wird auf einen 8*8 Brett ge- 
spielt. Zwei Spieler - dar Com- 
puter kann einen oder zwei 
Spieler steuem - setzen ab- 
wechselnd Steine auf das 
Spielfeld, mit der Absicht, die 
gegnerischen Steine durch Ex- 
plosionen zu zerstören. Ge- 
wonnen hat, wer als Erster alle 
Steine des Gegners vernichtet 


des Feldes auf die angrenzen- 
den Feldar verteilt. War eines 
dieser Felder von einem geg- 
nerischen Stein besetzt, SO 
wird dieser in einen eigenen 
umgewandelt. Die Randfelder 
haben den Überladungswert 3, 
die Ecken 2 und alle übrigen 
Felder den Wert 4. Im Verlauf 
des Spiels kann es zu wahren 
Kettenreaktionen kommen, die 
bis zu mehreren Minuten an- 
dauern können. Man muß beim 


Be u ne u u 


«II jei ii | | je 
BEBBBRERE|} 


a | 


hat. Auf ein Feld können meh- 
rere Steine gesetzt werde, aber 
immer nur von einer Farbe. Ein 
Feld, das bereits vom Gegner 
besetzt wurde, kann nicht vom 
anderen Spieler angewählt 
werden. Dazu muß erst der 
Stein, der sich darauf befindet, 
durch eine Explosion beiseite 
geräumt werden. 

Jedes Feld hat einen soge- 
nannten "Überladungswert”, 
Wird dieser durch die Anzahl 
der darauf gesetzten Steine 
überschritten, so kommt es zu 
einer Explosion, die den Inhalt 


14 


83864 
GEWSHNEN 38 


11.07 u Pe 





Setzen der Steine also den 
Überblick bewahren. Dies wird 
aber durch die Tatsache er- 
schwert, daß mar einem Zeit- 
limit für den Zug ausgesetzt ist. 
Die zur Verfügung stehende 
Zeit nimmt mit dem steigenden 
Schwierigkeitsgrad ab. 


Das Spiel ist wirklich sehr knif- 
tlig. Es kann geschehen, daB 
man schon glaubt, einen siche- 
ren Sieg in der Tasche zu ha- 
ben, nur um nach dem näch- 
steri Zug des Gegners festzu- 
stellen, daß man verloren hat. 


Die. Eingabe 

Bei Explosion handelt os sich 
um ein einteiliges Basic- 
Programm. Tippen Sie es mit 
Hilfe des Checksummers OV20 
ab. Zum Abspeichern kann ein 
beliebiger Name verwendet 
werden. Der Start erfolgt mit 
RUN. 


64K-Ram/Plus/4 





Programmname: Explosion 
Computertyp: C16/116 mit 


Lauffähig auf: Floppy und 
Datasette 

4 Besonderheiten; Kom 
xes Strategie/Brettspiel 


ple- 





BER TRTe 


©-16 LISTING + CHECKSUMMEN (0C Vi1.8) 


1894 SCNCLR;COLORB,4,1:COLOR4,4.1:GRAPHIC1,1' 
< 


:GRAPHIC9:C=® 
1010 POKE65299, 60: POKE65298,@ 
KEYB, "POKE65298,,8"+CHR$ (13) 
FORT=819T0848:READA : POKET ,A:NEXT 
SY3819 
FORI=®8TO8 : READB 
IFB=-1THENC=-C+1:G0T01058 
IFB=-2THENNEXT : PRINTCHR$ (142) :GOTO110® 
POKE14336+C*8+1,B 
NEXT: G0T019858 
PRINT” { CLEAR) * : VOLB: PUDEF" 9" :Kg="44" 
DIMW% (9,8) ,B%(8,8).0%(8,8).P%(8,8) 
1128 FORN=1T08:READWX{N. 1) :WS{N.B)=WSCN, 1): F 
ORJI=2T07 :Ws (N, JJ=WS(N, 1) +1 
1138 NEXT:NEXT:READD$,C$ 
1148 PRINT"(CLEAR CTRLH DOWN5 SPACE? 
»2 SPACE2 9/2 5*2 5I SU SPACEI SU S*2 
ST U 92 SI 2 212 SI u Sr SI u sı WE 
EI," 

1 FEch, PRINT" (SPACE2} } { SPACE3} ){ SPACE2) Y) {SPAC 
E2) ))(SPACES }} (SPACEZI}) (SPACES) ) Y{SPACE2Y}) 
1168 PRINT"(SPACE2 CQ)“ SPACE2) J(CRZIKCQI** 
K)LSPACEI} }SPACEZI} 3” "I SPACE} }} (SPACE2Y)) 
YILSPACES)" 
117® PRINT" (SPACE2) ) (SPACE3)uI CEZIi)(SPACEN 
+1 SPACE3} ){SPACE2) ) (SPACEZ}}(SPACES) SPACE 
zrr)))(SPACEZ}" 
1180 PRINT"{SPACE2 SJ 3*2 SK2 SPACE2 SI SK S 
PACE3 5J-8*2 SK 5J S"2 SK Su 8*2 5K SU Sr2 8 
K S5J S"2 SK2 5J SK SPACE3)" 
1198 A=1E9:E=T1:D=60 
1280 DEFFNR(X1=INT(RND(1)*X+1) :N=RNDI-TI) 
121@ IFAA% >LTHENPRINT"(DOWN2 SPACEZYWILLKOM 
MEN { SPACE} BEIM{ SPACE} SPIEL { SPACE} 'EXPLOSION® 
{ DOWN2Y" 
1228 IFARX< >UTHENPRINT"SPIELANLEITUNG ( SPACE) 
P{ SPACE (J/N) (SPACE) " ; :V1$="N" :V2$="J";V-9:6G 
O3UB1868 ; PRINT 
1230 IFAR%< >1THENIFAS< >" J"ANDAS< >"N"THENPRIN 
T"(VPY"::G0T01228 


i 
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1248 IFAAR< >1THENIFAS="J"THENGOSUB2140 : AAk=1 
:GOTO1140 

1250 PRINT" { DOWN} O1 SPACEZ}1 { SPACE2Z}ODER{ SPAC 

E32{ SPACE} SPIELER{ SPACE} ? ( SPACE}; :V1g="2":V 
2$="@":GOSUB186@:PRINT:G=VÄL(A$) 

1260 IFG<2THENA$(2)="{L.BLU RUSON SPACE}C{SP 
ACE} 161 SPACE} " : IFGCATHENA$ (1)=" (WHITE BUSGER 
" SPACE 85011 SPACE} " :GOT01358 

1276 FORN=1TOG 

1288 CHAR,0,19,"SPACES2OY" ' 

129@ CHAR,®,19, "NAME ( SPÄCE}DES" :PRINTN" (LEFT 
7. {SPACE}; :INPUT'SPIELERS(SPACEI1 LEFTI8)“; 
A$(N) :L=® 

1300 Ag(NI=LEFTS(ASCN) 18) :CHAR,0,21, "SCHWIE 

RIGK, : LSPACE)O-91 SPACE) ?LSPACEN" :V1S="9":C08 

UB1B 

1318 CHAR,®,21.”(SPACE39}” 

1320 IFG=1THENA$(1}="{WHITE RVSOFF}"+RS (1) 
13324 IFG=2THENA$(2)="(ZL. BLU RVSON}"+ASL2) 
1340 PRINT:H{N)=22-(VAL(A$)+1)*2:CHAR, 0,19," 
tSPACE39}" :NEXT 

1356 PRINT" (CLEAR}“ :IERND{1) >.5STHENIe-1:50SU 

B1649 : FORK=2T02:G0T0137® i 
1360 GOSUB1649 : FORK-1TO2 

1376 34="'9“: IFRIGHTS{A$(K) ,1) "3" THENSH="" 
1389 L=L+1:8=1-1K=1) 

1308 A=H{K) :V=(L>2) 

1480 CHAR,9,22,"(SPACE39)” 

1919 CHAR,®,23, "1SPACEI9}" 

1420 CHAR,@,22,A$(K) :PRINTSS" (SPACE ZUGLSPAC 

Er: IFK=2ANDG< 2THEN2458 

1439 IFK=1ANDG< 1THEN2458 

1448 CHAR,®,23, "REIHE(SPACE} TI SPACE)" :PRINT; 
1450 V2g="1":V1$="0":E=TI:GOSUB1B60 :Y=VALLAS 
): IFCTHENPRINT 

1469 IFC=OTHEN1580 

:147@ CHAR,®,23,"{RUSON FLASHON SPACE3}Z{SPAC 

EYE SPACE} I{ SPACE}T{ SPACERIA { SPACEYU{ SPACE}S 
{SPACE} ! (SPACE) !{SPACEI FLASHOFF RVSOFF} "SO 

UND2, 988,10: FORW=1TOIE3: NEXT 

1480 CHAR,0,23, "{RVSOFF SPACE34}" :PRINT 

1498 NEXT: FORK=1T02:60T0137@ 

1598 IFY=ÖTHENCHAR,G, 23," SPACE3IN“ 

1518 PRINT" { RIGHT2} :SPALTE{ SPACEZ} ?{ SPACE}": 
:V2g="A":V1$="H" .GOSUB1869 : PRINT ; EFCTHEN1468 

1528 X=ASC(A$)-64: IFX=-4460T01559 

1539 1F0%(Y.X)=KORB&(Y,X)=@G0T01574 

1540 PRINT"’{UP RUSON FLASHONYNICHTt SPACEYERL 

AUBT{ SPACE}YNOCHEINMAL { SPACE) !{ RVSOFF FLASHOF 

F}" :SOUND2, 790, 19: FORW=ÖTOLEI: NEXT 

15508 CHAR, 8,23, "(RVSOFF SPACE34} " : PRINT 

1568 PRINT" {HOME}" ;GOTO1489 

1570 BRCY.X)=BEY,X)+1:0%1Y,X)=K:F=1:GOSUBI16 

48: F=@: IFB%(Y,X)=1THENK(K)=K(K)+1 

1588 Z=1: IFB&(Y.X)=W%(Y, X) THENGOSUB1999 
1590. IFZTHENNEXT : FORK=1T02:G0T01370 

1608 V{iK)=V(K)+1:GOSUB1649: I=(K=2):V=-@ 

1618 IFGTHENPRINT"NOCH{ SPACE)YEIN{ SPACE}SPIEL 
?ASPACEY” : :V1$="N" ;V2$="J" ;GOSUB1B60 : IFASKC >" 

J"THENPRINT" { CLEAR} " ; END 

1628 FORN=1T08:FORI=1T08:BX1N, I =8:0%(N,J}=8 
:NEXT:NEXT:PRINT"{CLBARY" :K(1)=@:Kl2)=0 
1639 L=®: I=NOT1:605UB1640 : FORK=1-IT02:G0T013 

78 

1640 PRINT“ { HOME) "TAB(10) "{L. BLU SU &r19 SI} 


















































1658 PRINTTAB(10)" (S- SPACEYE{ SPACHHXI SPACE) 
PISPACEFLISPACEYOL SBACHISLSPACEI TI SPACHIOL SE 
ACEIN{SPACE 5-}" 

1658 PRINTTAB(10) "(57 SrI1I SK WHITEY" 

1678 :PRINT" (SPACE) At SPACE) BL SPACH CI SPACHD 
{SPACE)YE{SPACEYF{ ISEACEIS! SPACEYH{ SPACE} " 


u wi Zu Ze 




















u ui zZ zu zZ 


8:50T01718 
1698 IFY>2THENFORN=1TOY-2 : PRINT" { DOWN} " :NEXT 
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<126> 
<84> 


<177) 
<207> 
€14> 


<235> 


<6> 
<223> 
<147> 
<66> 


<26> 


„61477 


<113> 
<147> 
<ial> 
<189> 
<63> 
x79> 


<123> 
<19> 


<227> 


<135> 
<172> 


<228> 
<255> 
<118> 
<144> 


<97> 


<2457 
<74> 


155) 
<70> 
<155> 
<171> 
<179> 
<124> 
<102> 
<39> 
<87> 
<1597 
<35> 


<106> 
<226> 


<172> 


<69> 
<115> 





PROECK/ARMLUE Ka 


1788 FORN#=-{YC2I-(X-1) *EYPLI TO-L{YHLITCYC7I-8 
“(Y?6) 


ma PRINT" (5-}" ; : IFFS®THENFORI=1TOB: :GOT0174 
1728 IPX>2THENFORJI=1TOX-2: :PRINT" ( RIGHT2V" ; :N 


EXT 

1730 FORI=-(XC2) -[X-17* (X>1Y) TO-(XH1)HIXKTI-8 
*(X>6) 

1749 IFB% (N, J) «»BTHENPRINT" { SPACE)" ; :G0T01779 
1758 IFO%(N,J)=2THENPRINT” {AVSON L.BEUN”; 
1768 PRINTRIGRT$ (STR$ (B&(N,J)}. 1)" (RUSOFF WH 


ZIEr”s 
1778 PRINT"{5-}"; :NEXT : IFFTHENPRINT :60T01849 





<242> 
<62> 
<116> 
<133> 
<125> 
<55> 


<16> 
<104> 


LANGSAM WIRD MR KLAR, WÄRIA DU AUF DEE 


STRIEGIESPIEL 3 


1788 PRINTN; : IFIOTHENPRINT;GOTO1848 

1798 IFN=2THENPRINTA$ (1) :GOTO1848 

1800 IFN=3THENPRINT“ { SPACE} GEWONNEN SPACE) "U 
SINGK$; V£N/3) :GOT01840 

1810 IFN=8THENPRINT" { SPACE) GEWONNEN { SPACE} "U 
SINGK$ ; V{N/3) :GOTO1858 

1829 IFN=7THENPRINT" { RVSON) "A$ 2} :GOT0O1848 
1838 PRINT; IFAS(1)="{WHITE RVSOFF SPACE) 8501 
{ SPACEY "ANDV {N/3) € >OTHENAA%=1 : FORI=1TOLE3:NE 
XT:GOT01148 

1840 IFN<BTHENPRINT" {WHITE CQ S* 5+ & gt Sr 
NT”: HOMEY "DS : RETURN 

1858 PRINT"{HWHITE C2 S* CE S* CE Sr CE St CE 
Age" u :C=9 

PRINT" (C@ LEFT}";:T=@ 
IFTI-E>A*DANDVTHENC=1 : RETURN 

GETA$: T=T+1: IFA$=""ANDT< 2860T01890 
IFA$< >" "THENGOSUB1960 : IFZTHENRETURN 
PRINT" {SPACE LEFT}";:T=@ 
LFTI-E>A*DANDVTHENC=1 : RETURN 

GETAS: T=T+1: 1FA$=""ANDT< 20G0T01930 
IFAS< >" "THENGOSUB1968 : IFZTHENRETURN 
GOT01876 

Z=0: IFAS >=V2HANDASC=VISTHENPRINTAS; :Z=1 
IFASC (A$) =20THENZ=1 

RETURN 

FORY=1T08 : FORX=1TOG : IFBS(Y,X)<WSCY,.X)TH 
ENNEXT : NEXT: RETURN 

2008 PRINT” t HOME} "LEFT$ (D$, 3+Y*2) LEFTS CH, 2" 








BHNDL....! 





<225> 


<93> 
<141> 
£.246> 
<143> 
<130> 
<199> 
<146> 
<183> 
<44> 
<149> 
<4> 
<98> 
<77> 
<Bi> 


<42> 
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_BERIOGIRZANFIRIE 


X-1)"H{UP LEFT2}{S-)*tDOWN LEFT3 S* R RIGHT & 
”" DOWN LEFT3) *{S-}*°: :SOUNDI, 168,8 

2010 GOT02029 

2828 IFY>1THENO=Y-1:B%Q,X)=-BR(0.K)+1:U=X:60 
SUB2774 

2038 IFX>1THENU=X-1:B&IY,U)=BRtY.U)+1:0=Y:60 
SUB277@ 

2048 IFY<BTHENN=Y+1:B%(Q,X)=-BR{Q,XI+1:U=X:GO 
S5UB277@ 

2050 IFX<STHENU=X+1:B%CY,UI=B&(Y.U)+1:0=Y:G0 
SUB277@ 

2068 BAY, X)=-BELY,X)-WRCY. X) :OXIY,X)=K 

20780 IFB&(Y,XI=2OTHENOK(Y,X)=B:K(K)-K(K)-1 
2080 F=1:G0S5UB1648:F=8 

2098 Z=1:FF(K{1)+K(2) >) AND(K(1)=BORK{2)=B)T 
HENZ=0 : RETURN 

21809 GSOTO1I9A 

211@ PRINT" (HOME) "DS" DOWNS SPACEA RVSONYBIT 
TE{ SPACE} DRACKEN ( SPACEISTE( SPACE) EINE( SPACE} 
TASTE 

2128 GETKEYA$ 

2138 PRINT" {CLEAR} " :RETURN 

2148 10=1: PRINT" {CLEAR} " :B$=C$+"{ RIGHTS} ":PR 
INT 

2158 PRINT" { GLEAR}" :PRINTTAB (15) ; “ ' EXPLOSION 
"SPACE," 

2168 PRINT" { DOWN) ES{ SPACEYWIRDI SPACE) AUF{ SPA 
£E EINEM{ SPACE} BXSL SPACE} BRETT{ SPACE) GESPIEL 


2178 PRINT: PRINT"STEINEtSPACE}DESI SPACE}YGEGN 
ERS{ SPACE}SIND{ SPACE} ZU SPACE} VERNICHTEN, 
2180 PRINT'"SO(SPACEYDASS{ SPACEYNUR( SPACE) EIN 
(SPACEYSPTELER ( SPACEY STEINE { SPACE}@BRIGT SPAC 
ES)HAT.(SPACE}"; 




















- 2190 PRINT"AUF{ SPACE}DEM( SPACE} BRETT{ SPACE}W 


IRD( SPACE} DIE: SPACE) ANZAHL { SPACES}DER{ SPACE) 
STEINE ( SPACE} AUF (SPACE) " ; 

2208 PRINT" DEM( SPACE} QUADRAT SPACE} F@R{ SPACE 
YDEN( SPACE6}1. SPACE}SPIELER{ SPACE} IN{ SPACE} 
NORMAL. ( SPACE} FAR{ SPACE} DEN 

2210 PRINT'"2.(SPACEYSPIELERI SPACE) IN(SPACE R 
UVSON)REVERS ( RUSGFF SPACE} ANGEZEIGT." 

2220 PRINT" ( DOWN}WENN ( SPACE}SPIELER (SPACE) 14 
SPACE} ZWEI { SPACE} STEINE SPACE} AUF{ SPACEYA-2 
2238 PRINT"UND{ SPACE}SPIELER{ SPACE2} 2{ SPACE} 
DREI SPACE} STEINE SPACE} AUF ( SPACE) C-A: SPACH 
HAT, { SPACE)SIEHT ( SPACE} DAS ( SPACE) BRETT SPACE 
}S0{ SPACE} AUS. 

2248 GOSUB211® 

2258 FORN=1TOB: FORIJ=1T08:0% (N. J)=0:B%{N,J)=® 
:NEXT:NEXT:0%(2,1)=1:0%(4,3)=2 

2268 B%(2,1)=2:B%(4,3)=3:60SUB1649:G0SUB211® 
2276 PRINT'"NUN{ SPACE}WIRD{ SPACEIDIE(SPACEIHI 
CHSTZAHL{ SPACE} DER { SPACE}STEINE ( SPACE} GE- 
2280 PRINT"ZEIGT, { SPACE}DIE{ SPACE) AUF{ SPACE} 
JEDEM{ SPACE2} QUADRAT { SPACE} @&BRIEG 

2290 PRINT"BLEIBENt SPACE}K INNEN. " :PRINT 

2388 PRINT“WIRDISPACEIDIE(SPACEIHICHSTZAÄHL{S 
PACE}&BERSCHRITTEN, 

2318 PRINT"EXPLODIERT{ SPACE} DAS{ SPACE}QUADRA 
T{ SPACE} UND { SPACE} SEIN( SPACE} INHALT 

2329 PRINT"WIRD{ SPACE} AUF (SPACE}DIEL SPACE) AN 
GRENZENDEN SPACE2) QUÄDRATE{ SPACES) VERTEILT. 
2338 GOSUB2118 

2348 FORN=1TOB: FORK=1T08:BSLN,K)=W&(N,K)-1:9 
%(N.K)=1:NEXT:NEXT :G0SUB1648 :505UB2118 

2350 PRINT"SIE( SPACE}KINNENt SPACE} EINEN SPAC 
EYSTEIN{ SPACE) NUR { SPACE} AUF ( SPACE}EIN 

2360 PRINT"QUADRATI SPACE} SETZEN, ( SPACE}DAS{S 
PACE) ENTWEDER ( SPACE} UNBESETZT { SPACE2) ODER { SP 
ACE)MIT( SPACE} IHREN SPACE) EIGENEN { SPACE) STEI 
NEN SPACE} BESETZT" 

2378 PRINT"IST, 

2388 PRINT"UM{ SPACE}DAS(SPACEISPIEL{S SPACE) ZU 
{ SPACE} GEWINNEN, { SPACE)YMASSEN | SPACE}SIE 

2308 PRINT" IHREN! SPACE}GEGNER { SPACE} VERNICHT 
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<147> 
227 


<212> 
<70> 
<ı> 
<116> 
<21> 
<192> 
<12>_ 
<117> 
<166> 


«98> 
<54> 
<238> 
<158> 


<59> 


<125> 
<37> 


2733 
<109> 


<188> 
<219> 
<19> 


&84> 
<0> 


<202) 
<170> 


<B86> 


<55> 
<38> 


<a8> 


-£156> 


<190> 
<91> 


<192> 
<68? 


«53? 
7> 


<51> 


EN N 1 - 
2488 PRINT"MITISPATEIDEM: SPACE}SCHWIERIGKEIT 
SGRAD{ SPACE}YK INNEN SPACE}SIE 

2418 PRINT"DIE!SPACE}YZEIT(SPACE}WIHLEN. {SPAC 
ErDIEISPACE}SIEL SPACE} FAR SPACE} IHREN { SPACE} 
ZUG SPACER}BRAUCHEN, 

2428 PRINT 

243@ PRINT"{ DOWN RVSON FLASHON) ACHTUNG 

OEEF RUSOEE SPACENACHTENT SPACE) STELSPACHTAUFT. 
SPACE26) KETTENREAKTIONEN! !{ DOWN} " : GOSUB211® 
244@ FORN=1T08 :FORK=1T08:B& (N,K)=B:0%{N,K)=@ 
:NEXT :NEXT: I@=®: RETURN 

2458 Q=@:U=Q:FORN=1TO08:FORJ=1TO8 

2466 P%(N,J)=8:IFO% (N, J)=KANDB& (N. JJ=WS(N,J) 
-1THENP& (N, J)=1:Q=Q+1 

2470 IFO%X{N,J)< >STHENU=U+L < 

2480 NEXT:NEXT: IFQ=3860T02620 

2498 FORN=-1T08:FORJ=1T08: IFP% (N, JJ =8G0OT02578 
2508 O=J: FORP=-N-1TO1STEP-1:GOSUB2758: IFB% (P, 
TS DW CP, I)-ITHENP=1 

2518 NEXT: IFN>?THENFORP=1T01:G0OT02539 

2522 FORP=N+1T08:G05UB2758 : IFBS IP. I)< >WRSP,J 
}=1THENP=8 

2538 NEXT: P=N: FORO=-JTO1STEP-1:GOSUB2758: LIFB& 
{N,O)< >WSCN,O) -1THENO=1 

2548 NEXT: IFJ>7GOT0257& 

2556 FORO=J+1T08:G605UB2759: IFBX(N,O)< >WRN,O 
)-1THENO=8 ai 

2568 NEXT 

257@ NEXT :NEXT - 

2588 M=8: FORP=1T08: FORO=1T08 

2598 IFP%(P.O) >MIHENM=-P% (P,0O) :N=-P: J=0 

2688 NEXT:NEXT: IFD< >1ORL (N=1ORN=8) AND (Je1ORJ 
=8)ANDFNR(2)=1)THEN2748 

2618 IFQO=-1ANDP& (N, J}) >50THEN2748 

2628 B=8: IFFNR(3)=10ORU>3360T02658 

2638 FORP=1T08 : FORO=-1TO08 : IFO%& (P.,O)=KTHENN=P: 
J=0:P=8:0=B 

2648 NEXT :NEXT:GCTO2669 

2658 N=FNR(B) :J=FNR(8) : IFO& (N, I) =SCOT02658 
2660 R=B: FORP=N-1TON- {N<8) : IFO&{P, J)J< >SGOTO2 


688 
2678 IFB%{P,J)=W%{P,J)-1THENR=1 
NEXT :FORO=J-1T0J-1J<8) : IFOX (N, O)< >5G0TO 


2688 
2788 . 
2698 IFB%{N.O)=W&(N,O)-ITHENR=1 
2788 NEXT: IFRTHENB=B+1 ; IFB<UGOTO2658 
2718 GOT0O2748 
FORP=1TOB ; FORO»1 TOB : IFO& (P,O)< >STHENN=P 
:J=0:P=B:0=8 








2726 


2738 NEXT:NEXT 


2740 PRINT“ (SPACE) I{ SPACE}C SPACE) HLSPACEZIG 


'EHE{ SPACE}NACH SPACE} "N" {LEFT} , { SPACE} CHR$( 


J+64) :%=J: Y=N: GOTO2B8@ 

2750 PX{N,J)=PX(N,J)+1: IFO&(P,0O)7=STHENP%(N,J 
I=P%(N,J) +58 

2768 RETURN 

2778 IFO%(Q,U)=STHENK (S)=K(5)-1 


'278@ IFO%(Q,U)< >KTHENK(K)=K(K)+1 


2798 OX(N,U)=K:RETURN 

28@@ FORI=DOTOIE3 :NEXT:GOTO1578 

2B1@ DATA 162,0908,189,099,212,157,809,060,18 
9,000,213,157,000,061.189,000, 214,157 

2828 DATA 000,062,189,098,215,157,000,069,20 
2,208, 229,096 

2230 DATA 192,.999,069,098.090,066,960,008,-1 
2848 DATA 060.966, 090,066.098.090,192,000,-1 
2856 DATA. 120,268,084,076,002.466.124,000,-1 
2868 DATA 028,034,076,880,076,094,028,008,-1 
28760 DATA 120,068,082,090,082,968,120,008,-1 - 
2890 DATA 126,066.092,068,092,066,.126,008,—1 
2898 DATA .126,066,092,068,092,089,112.000,-1 
2909 DATA 028,034,076,2892,974,034,028,008,-—1 
2918 DATA 1902,090,090,066,098.898.1902.0298,—-1 
2928 DATA 862, 0634,854,020,254.094,062,00@,-1 
7938 DATA 262,034, 054,116,084,068,056,900,-1 


» 
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<39> 
<211> 


<132> 
<22> 


<191> 


<128> 
<126> 


<226> 
<70> 

<247> 
<115> 


<85> 
<8> 


<180> 


<181> 
<213> 


<67> 
<140> 
<144> 
<38> 
<137> 


<78> 
<80> 
<95> 


<111> 
<113> 
<35> 


<97> 


"<99> 


<200> 
<193> 
<148> 
<242> 


<238> 
<49> 


<5> 


<19> 
<96> 
<251) 
<216> 
<207> 
<104> 


<137> 


<153> 
<98> 
<72> 
<90> 
<39> 
<212> 
<207> 
<236> 
<71> 
<187> 


693 


4225> 





PROCRAMLIE 


2944 DATA 102,090,082,068.082.290,102.000.-1 <203> | 328@ DATA 098,102.012,024.048,102.070,008.-1 <29> 
2950 DATA 112,.080,.089.000,094,066,126.009.-1 <131> | 3216 DATA 068,102.060.9056,103,102.063.080.-1 <5> 
296@ DATA 198,.17@,.146,178,186.170,238.000,-1 <ı8> | 3222 DATA 012.020,040.048,009.000,008,080.-1ı <113> 
2970 DATA 102,090,074,002.890.090,182.000.-1 <159> | 3230 DATA 012.024,048,048.046,024.012.008.-1 <200> 
2980 DATA 060, 066,090.090,098,066.068,000,-1 <6B> | 2240 DATA 048,024,012,012.012,924.048,000,-1 <59> 
2998 DATA 124,066.290,066,092.080,112.000,-1 <ı6> | 3250 DATA 009,102.060,231.069.102.890,000,-1 <247> 
3008 DATA 869,066.090,099,9282.067,061.007,-1 <ı21> | 3260 DATA 024,036,102,129,102.036.024,088.-1 <134> 
3818 DATA 124,066.090,066.084.090,182.000.-1 <53> | 3270 DATA 809,008, 8008,.024,036.036,872,.112,-1 <248> 
3020 DATA 860,066,092.066,056,066,060.800.-1 <3> 3280 DATA 208, 200,960,066.060,080.908,008,-1 <26> 
3030 DATA 254,130,238,040,049,049,056.90@,-1 <ı51> | 3290 DATA 008.008,000.008.024.036.024,088,-1 <167> 
3048 DATA 102.090.890,099,098.065.260,008.-1 <85> | 3308 DATA 000,083,006,812.024,048,996,008,-1 <124> 
3058 DATA 192.090.090.,090,066.036,024.008,-1 <93> | 331@ DATA 960,066.090.074.082.066.068,000,-1 <190> 
3060 DATA 238,170,186.17@0,146,170,108,009,-1 <219> | 3322 DATA 812,020.036.029.020,034.062,.080.-1 <25> 
3870 DATA 198,170,004,040.084.170,190,8080.-1 <157> | 3338 DATA 060,.066,090,.052.046.066,126.000,-1 <239> 
3080 DATA 182,090,090,066.036,036,060.008.-1 <114> | 3348 DATA 068,066,056,018,058,066,060,880,-1 <54> 
3090 DATA 126,066,122,020,044,066,126.008,-1 <198> | 3350 DATA 028,036,986,066.118,029.024,080,-1 <193> 
3180 DATA 102,090,036.098.090.066.060,0@0,-1 <152> | 3960 DATA 126.066,892,070,056,079,124.008,-1 <187> 
3110 DATA 012,018,049.124,048,098,252,008,-1 <186> | 3370 DATA 038, 034,075,066,090,066,068,.000,-1 <251> 
3120 DATA 102,090,036,098.066,090,126.080,-1 <246> | 3960 DATA 126,066,122,020.048.088.112,008,-1 <B2> 
3130 DATA 000,024,060,126.024,024,024,924.-1 <122> | 3398 DATA 060,066.090,036,090.066,060.008.-1 <222> 
3140 DATA 008,816.048,127,127.048,016,000,-1 <34> |34860 DATA 069,066,090,.066,050,868,120.008,-1 <167> 
3150 DATA 000,.009.000.080,000,000.000,008,-1 <42> |23410 DATA 000.024.035.024.036.024.800,088.-1 <99> 
3160 DATA 024.029,020,020,024.000.024,.000.-1 <168> | 3420 DATA 000, 024,036. 024.036,036,072,112.-1 <38> 
3170 DATA 102,102.102,000,000,080.090,008.-1 <128> |343@ DATA 014.024,048,096.048,024,014.000,-1 <252> 
3180 DATA 102,102,255,102,255,102,102,2080,-1 <156> | 23440 DATA 000,000,126,008,126.000,000,9080,-1 <181> 
3190 DATA 224,062,096,069.006,124.024,008,-1 <105> 13450 DATA 112,024,812,006,012,024,112.000,-1 <75> 


Allen Programmautoren dieses Hefts an dieser Stelle herzlichen Dank! Eine solche Veröffentlichung kann sich manchmal etwas verzögern. Wir 
treffen zunächst eine Vorauswahl unter dem Gesichtspunkt der Qualität 
Wer sich ebenfalls als Programmautor versuche möchte oder emmeutsich und stellen im Anschluß eine Auswahl speziell für ein Heft zusammen. 
beteiligen wilt, schneide bitte den Bewerbungsbogen mitder Schere aus Wenn ein bereits ausgewähltes Programm sich nicht in die Konzeption 
und fülte ihn aus. Ihr seibstgeschriebenes Programm tritt in Konkurrenz einfügen läßt, wird es zurückgehalten, um vielleicht in einer späteren Aus- 
zu Sehr anspruchsvollen anderen Programmeinsandungen. Wenn Sie gabe berücksichtigt zu werden. Warden Sie also nicht ungeduldig, wenn 
keine Befürchtungen haben, daß ihr Programm unserer Qualitätsprüfung Sie nicht sofort nach der Einsendung eine eindeutige Zusags erhalten. 
nicht standhält, schicken Sie uns Ihr Programm per Briefsendung. Eine Honoriert werden dabei nicht nur die Qualität der Programmierung, son- 
Veröffentlichung lohnt sich auch finanziellt dern auch die Originalität der im Programm realisierten Idee. 
Ottfried Schmidt 





Bewerbung als Programmautor 


Vorname: 





Alter: 











Name: 





Straße: Wohnort: 















Computersystem: 





Titel des Programmes: 






Erforderlicher Speicherplatz: _____ KBytes Bitte legen Sie Ihrer Bowerbung einen adressierten und frankierten 
Rückumschlag (DIN A4, 1,40 DM) bei! 











Erforderliche Perlpherie: 
Ich versichere hiermit, daß ich der Autor des obengenannten Programmes bin und alle Rechte besitze, Ich bin damit einverstanden, 
daß Sie mein Programm in einer Zeitschrift abdrucken und/oder dieses verkaufen. Das einmalige Honorar beträgt 120 DM pro ab- 
gedruckter Seite. Sollte das Programm nicht veröffentlicht werden, bitte Ich um Rücksendung meiner Unterlagen. Sollte mein Pro- 
gramm In der Zwischenzeit von anderer Selte erworben worden sein, werde Ich Sie unverzüglich benachrichtigen. Ich beställge durch 
meine Unterschrift, daß ich Kenntnis davon habe, daß der Tronic-Verlag gegen Personen, die Programme einschicken, deren Ur- 
heberrechte sie nicht besitzen, rechtliche Schritte einleitet. 

Unterschrift des Programmautors (ei Minderlährigen auch die eines Erziehungsberechligian]: 















Folgende Unterlagen liegen diesem Schreiben bei: 


Kassette: ____ Diskette: Dokumentation: Listing _____— Rückporto: 
















Unterschrift des Programmautors (kei Minderjährigen auch dia elnss Erziehungsberechtigten): 


B : “  fBitte zweimal unterschreiben?) 
Einsenden an: Tronic-Verlag Abt. Programmentwicklung, Am Stad, 3440 Eschwege 
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BE PNROERVALILIE 


34660 DATA 824,036,090,852,048,024,036,024.-1 <27> | 3750 DATA 192,192,048.048,192,192,048,048,-1 <B> 
3478 DATA 000,000,000,255,.255,080,090,00#,-1 <9> 3760 DATA 024,024,024.024.624,024.024,024,-1 «222> 
3480 DATA 080,000,009,248,248,024,024,024,-1 d79> 3778 DATA 000.000,003,862.118,054,054,000,-1 <197> 
3498 DATA 024,024,024,024,824,024,.024,024,-1 <207> | 3786 DATA 255,127,063.831,015,007,003,001,-1 <75> 
35@0 DATA 000.200,008,255,.255,000,000,200,-1 <39> 3790 DATA 009,0209,.090,000.008,000.090,208,-1 <172> 
3518 DATA 000,088, 255, 255,099. 009, 000.000,-1 <209> | 3808 DATA 240,249,240,240, 240,240, 240,248,-1 214) 
3520 DATA 000, 255,255,009,000,000,000,000,-1 <i23> | 3818 DATA 20, 0002.,000,000,255,.255,255,255,-1 <124> 
353@ DATA 080,.008,000, 255,255,8024,024.024,-1 «559» 382@ DATA 255,000,000,000,000,000,989,098,-1 <241> 
3540 DATA 848,048,048,044,048,048,048,048,-1 <81) 3838 DATA 092,000,000,008,000,000,000,255.-1 <75: 
3550 DATA 012,012,812,012,012,212.012.012.-1 <99> 3840 DATA 192,192,192.192,192,192,192,192,-1 <71> 
3568 DATA 020.080, 000.224,240,056,024,024.,-1 <22> 385@ DATA 204,.204,051,951,204.204,051,051,-1 <37> 
357@ DATA 024,024,028,015,007,0080,900,980,-1 <116> | 3860 DATA 003,203,003,003,003,003,003,083,-1 <163> 
3580 DATA 824,824,056,240,224,009,800,000.,-1 <142> | 3878 DATA 000.000,000,000, 204.204.051,051.-1 <91> 
3598 DATA 192,192,192,192,192,192,255,255,-1 <0®> 3888 DATA 255,254, 252,248,249,224,192,128.-1 <131> 
368@ DATA 192,224,112,056,028,014,007,083,-1 <ı34> | 3690 DATA 083,903,003,003,003,003,003.003,-1 <193) 
3618 DATA 0093,007,014,028,9856,112,224,192.-1 <152> | 3900 DATA 024,924,024,031,031,024,024,024,-1 «33)> 
3620 DATA 255,255,192,192,192,192,192,192,-1 <110> | 3918 DATA 220,200,009,.000,015,815,015,015,-1 <145> 
363@ DATA 255,255,003,003,003,003,003.883.-1 <22> | 3928 DATA 024,024, 024,831 .031,@00,009,800.-1 <67> 
3646 DATA 824,024,024,031,031,024,024.024,-1 <26> | 3938 DATA 20%.009,000, 248. 248,024,024,024,-1 <19> 
3658 DATA 088,080,000,255,255,024,024,024,-1 <176> |] 3948 DATA 090, 000,400,890,080,000,255,255,-1 <1> 
3660 DATA 028,000, 000,031.031,.024,024,024,-1 <166> | 3958 DATA 000,000,000,031,.031.024,024,024,-1 <201> 
3670 DATA 896,896,096,096.096,096,896,096,-1 <92> 3960 DATA 824,024, 024,255, 255,0092,009,000,-1 <127> 
3680 DATA 800,809.000,097,015.028,024,024.-1 <119> | 3970 DATA 209,000.909.255,255,024,9024,024,-1 <241> 
3690 DATA 195,231,126,068.066,126,231,195,-1 <«<32> 3980 DATA 008,000,200,000,240,248,024,024,-1 <39> 
3780 DATA 024,024.024,248, 248, 024,024,024,-1 <i82> | 3990 DATA 192,128,003,003,003,003,003,0083,-2 <157> 
3710 DATA 24,024,024,248,248,008,000,008,-1 <206> | 4800 DATA2,.3,3,3,3,3,3,2, "1 DOWN18}" ."tRIGHTI 

3728 DATA 806,006,006,006,006.806,806,006.-1 <198>| 5}" <7a> 
3738 DATA 024,024,024,031,031,099,008,000,-1 <132> 

3740 DATA 024,024,024,255,255,024,024,024,-1 «148> ‚ENDE DES LISTINGS 





HÖLLENFEUER ist ein Stra- reits vorher verschoben wurde. erfolgt auch eine Punktevertei- 
tegie-Spiel für die erweiterten Mitderm Joystick oder den Tas- lung, diesich nach der "Güte” 
C16/116-Rechner und den ten "Z” und ”A” können zwei des Zuges richtet. Dabei be- 
Plus/4. Es arbeitet mit Floppy Pfeile bewegt werden, um die kommen aber immer alle vier 
und Datasette zusammen. zu manipulierende Ebene an- Spieler Punkte. 

Bis zu vier Spielern können zuwählen. Mit dem Feuerknopf Jenachdem, wie gut ein Stein 
teilnehmen. Spielen weniger oder der "SPACE”-Taste er- steht, ob ein Spieler einen an- 
Personen mit, so wird bei der folgt dann dar Zug. Ebenfalls deren Stein ins Feuer beför- 
Frage nach dem Spielernamen mitdem Joystick oder den Tas- derte usw., ist die Punktzahl 
einer nicht vorhandenen Per- 
son einfach die Taste RETURN 
gedrückt. Der Computer über- 
nimmt dann diesen Spieler. 
Das Spielfeld wird durch Zufall 
aufgebaut und besteht aus vier 
Röhren, die abwärts zum Höl- 
lenfeuer führen. In diesen Röh- 
ren sind Wände eingebaut, die 
aber nicht gleichmäßig durch 
alle vier Röhren führen, son- 
dern stellenweise unterbrochen 
sind, Jeder Spieler hat einen 
Spielstein in einer bestimmten 
Röhre. Am rechten Rand des 
Bildschirms kann jeder Spieler 
seine Daten betrachten. Ziel 
des Spiels ist es nun, durch ten "”.” und ”,” läßt sich eine größer oder kleiner. Das Pro- 
Bewegen der Ebenen, von de- Ebene nach links oder rechts gramm führt eine High-Score- 
nen 95 neun gibt, die anderen verschieben. Nach nochmali- Liste, die auf Diskette oder Da- 
Spielsteine ins Feuer fallen zu gen Druck aufden Feuerknopt tasette abgespeichert werden 
lassen. Den eigenen Spielstein oder "SPACE" wird der Zug kann. 

sollte man natürlich nach Mög- ausgeführt und die entspre- Die Eingabe: 

lichkeit schützen. Dabei kann, chenden Steine fallen. Sieger Teil 1 mit dem Basic-Check- 
pro Zug eine Ebene bewegt ist natürlich, wer als letzter summer eingeben und unter 
werden, aber nicht die, die be- übrigbleibt. Nach jedem Zug dem Namen "HÖLLEN- 
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FEUER” abspeichern. Zur 
Eingabe der Teile 2 und 3 den 
MC-Checker an Adresse 4097 
tegen. Abgespeichert werden 
diese Programm-Teile mit den 
Befehlen: 
5”’H.CHAR”,8(,1),5800,6000 
bzw. 
S'’H.CODE”,‚8(,1),5000,53a0 
Zur Eingabe von Teil 4 ist 
wieder der Basic-Checkar von- 
nöten. Dieser Teil wird unter 
dem Namen "H.MAIN” ab- 
gespeichert. 


mit RUN gestartet. 
Programmname: 


HÖLLENFEUER 
Computertyp: 


Datasette 
Besonderhelten: 


ges Strategiespiel 


mit 64K-RAM/Plus/4 
Lauffähig auf: Floppy und 


Zum Spielen wird Teil 1 
(HÖLLENFEUER) geladen und 


C16/116 


Einfa- 
ches, aber dennoch kniffli- 





13 IFB=1THENA=PEEK (174) :50T021 

14 IFB=2THENGOTO22 

15 COLOR®,1:COLOR4,1 

16 CLR:DIMBUS (98) 

17 PRINT" (CLEAR HOME DOWN8 WHITE SPACE13}BIT 
TE SPACE}WARTEN! ” 

18 PRINT" {DOWN3 SPACEI5SYICH(SPACEILADE! " 

19 A=PEEK(174) 

28 IFB=OTHENB®1:LOAD"H.CHAR”,A,1 

21 IFB=1THENB=2:LOAD"H.CODE",A,1 

22 PRINT"{CLEAR BLACK}" ; :POKE65286 .11:POKE65 
298.0: POKE65299,, 88: POKE65287,, 136 : POKE65286 ‚2 


23 VOLS:COLORQ,1:COLORA,1 1 
24 STRICH$="t C’\}" :PRINTCHR$ 14) 











27 BUS(73)="{58 SC DOWN LEFTZYU{SD ma 

28 BU$(80)="{SP) rt DOWN LEFTZ 50 SPACE UP“ 
29 BUS (83)="ONEDOWN LEFTZYLM(UP}" 

3@ BU$(69)="1SP'SR DOWN LEFT2 SQ SS up" 
31 u EEE a DOWN LEFT2 ST 5V UP 
32 BUS 








3N DOWN LEFT SO SM UP 


34 BU$(78)="-{C- 
35 BU$(79)="(SU ST DOWN LEFT2 SJ 
36 BUS 82)" (SEN TLDONN LEFT2 SOY+{ UP" 

37 BU$(85)="(CE CE DOWN LEFTZ2 CG CH UP)" 

38 PRINT" ( CLEAR)" : FORI=1T0289:NEXT 

39 FORI=8T07:COLOR1,3,I:SGUND1, 1*188,2 

40 PRINT" (RVSON HOME DQWN2 RIGHT11}"” ;STRICH$ 
;STRICH$ 

Al PRINT" {RVSON RIGHT9}Y " ;BU$ (72) :BU$ (79) ;BU$ 
(76) ; BU$ (76) ;BU$ (69) ;BU$ (78) :BU$ (78) ;BU$ (69) 


42 PRINT" { RVSON) ” ;BU$ (85) :BU$ (69) ;BU$ (82) 
43 FORT=1T0108 :NEXTT :NEXT PRINT" { RVSOFFY" 

44 FORI=1T01088:NEXT 

a5 PRINT" (HOME DOWN RIGHTS} " ; :COLOR1,2:D=188 


26 PRINT" (SA}"; ‚SOUNDL, D,2:FORI=-1T058:NEXT:D 

=D-18 

47 FORI=1T022: PRINT" (3B}®; :SOUND1,D.1:D-D-18 

ı FORR=1TO34 : NEXTR: NEXTL: PRINT" {SC} ; :SOUNDI, 

1.1:D=D-18: FORI=1T030 :NEXT 

48 FORU=1T04:PRINT"{DOWN LEFT SD)" ; :SOUND1.D 
1:D=D-18: FORI=11038 : NEXTL:NEXTU 

a PRINT" {DOWN LEFT SE)”; :SOUND1 ‚D.1:D=D-10: 

FORI=1T030:NEXT 

50 FORI=1T022: PRINT" {LEFTZ SB}" ; :SOUND1,D.1: 

D=D-19: FORR=1T038 : NEXTR, 1: PRINT" {LEFTZ SE}"; 

:SOUNDI,D,1:D=D-1:FORI=1T030: NEXT —— 

51 FORU=1T04:PRINT" {UP LEFT SD3"; :SOUNDA,D,1 

:D=D-15 : FORT=1T030 : NEXTI : NEXTU 

52 PRINT" (HOME DOWN9Y" ;' 

53 FORI=1T0125:READA :PRINTCHR$ (A) ; :SOUND1 ‚05 
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<117> 
<98> 
<175> 


<ı81> 


<164> 
<281> 
<145> 
<20> 

<221> 


<131> 
<34> 
<13> 
<219> 
<254> 
<2061> 
<195> 
<84> 
<8B>. 
<125> 
<78> 
<204> 
<126> 
<64> 
<135> 
<146> 
<188> 
<31> 


<162> 


<174> 
<79> 

<1B9> 
<2025> 


€243>- 


<201> 


<224> 
g13> 
<175> 


<141> 


<156> 


<6> 


PROCRAML-E A 


8.2: FORQ=1TO3S :NEXTQ: NEXT 

54 DATA31,64,32,49,57,56,57,32,66,89,32,77,4 
3,87,32.93,79,70.84, 32, 65, 78,68,32 

55 DATA7O, 43,75,32,83,79,78, 84,46, 32.87,82,7 
3,94,84,69,78 

96 DATA1A1, 29,158,65,78,68,.32,84, 72, 79,85,71 
‚2,84.32,79,85,84,32,66,89,32 

57 DATA77,46.32.87.73,78.84,69,82,46.32.71.8 
2.,65,80,72,73,67,893 

58 DATA141,29,156 

59 DATA6S,78,69,32,83.79,.85,78,68,83,32,87,6 
9,82.69,32,68 

68 DATA69,83,73,71,78,69,68.32,66,69.32,.70,4 
6,32,75,82,65,85,893.69,.46,141,141 

61 50UND1,900,28 

62 A$="{CH SPACEIBS CH)“ 


63 C$="{CH CA3 e32 cC3 CD3 CE3 CE3 063 CF3 C 





65 PRINT" DOWN)"; -COLORL.2 
66 FORI=1T05:PRINTA$;C$; :NEXT:PRINT" {CH32 RO 


Mer 

67 POKE4971,116 

SM SN}" :GOSUB112: FORI=1T01508:NEXT 

69 RESTORE73:COLOR1,2: 

70 READA,B$,C: IFA=®THENCHAR1,®,21,.D$:60T088 
71 FORI=16TO21STEP2:CHAR1,A.I,KU$:CHAR1,A,I- 
1,B$:FORT=1T048 :NEXTT; NEXT: PRINT" ( DOWN3 LEFT 
2 RVSO 

72 IFO=1THENSOUND3. 200,10: PRINT" (RUSOFF UP $ 








BEI isn Selle Dim Damon Dam SL 


BU$ (1) :GOT07® 
73 SOUND, 289,19:PRINT"{ UP ar Dann LEFT3 


74 G60T07@ 

75 DATA2, "{WHITE CR2}" 80 
76 DATA5, "(WHITE CB2}",82 
77 DATAB, "(WHITE CC2}",69 
78 DATA1L, "(WHITE CD2}",83 








79 DATA1A,"{WHITE CE2Y”,83 


80 DATA17,"(KHITE CF2}",32 
81 DATA20, "(WHITE CG2}",32 
82 DATA23, "WHITE CP2}* ‚70 
83 DATA26, "(WHITE CE2)",73 
84 DATA29,"{WHITE CD2}",82 
85 DATA32." {WHITE CC2}",69 
86 DATA35, "(WHITE CB2)" 1 

87 DATAG,"",® 

88 VOL 


Do 
98 READX,Y.Z : IFY=OTHENFORI=1T0889 : NEXTI:RES 
TORE93 
91 SOUNDX,Y,2:GETAS 
92 LOOPUNTILJIOY (1) 31270RA$="T"ORAF=" {SPACE} " 
93 DATA1,810,30,2,685,15,2,739,15,1,819,15,2 





.»685,15.1,910.15,2,643,30,1,798,15 


94 DATA1,918,15,2.685.15,1,834,45,2.704,15,2 
»778,15.2,739,15.1,818,45,2,685,45 
95 DATA1.954,30,2,596.15,.2,685,15,1,854,36,2 
‚739,25,1.854,15,2,910,15,.1,.834,15 
96 DATA2,798,15,1,854,15,2,818,15,1,864,45,2 
‚834,15,.2,779,.15,2,798,15,1,854,45 


‘97 DATA2,8180.45.1,834,39,2,798,15,2,739,15,1 


,834,15,2,798,15,1,8190,15,2,778,15 

98 DATA1,854,15,2,818,15,1,722,15,2.778,15,1 
‚739,45,2.739,45,1,854,30,2,596,15 

99 DATA2,739,15.1,934,15,2,704,15,1,818,30,2 
‚685,15,2,739,159,1.799,15,2,685,15 

100 DATA1,77@,45.2.704,15,.2,643,15,2,685,15. 
1.770,45,2,704,45,1,864,30,2,643,15 

181 DATA2,704,15,1,854.15,2,778,15,1,834,15. 
2.798.15,1,854,15,2,739,15,1,818,15 

192 DATA2,722,15,1,798,45,2,739,38,.1,7980,45. 
2,739,153,2.695.15,2,643,15,1,818,15 


<132> 
x22> 
<221> 
<4> 


<159> 
<147> 


<182> 


x144> 
<1061? 
<51> 


477 


223? 
<181> 


<232> 
<112> 


<198) 
%61> 
<212> 


2927 


<134> 


<31> 
2897 
33) 
<3> 
<28> 
<8> 
<93> 
<186> 
<94> 
<198> 
<94> 
<28> 
«56? 
<148> 
<72> 
<163> 
<6B> 


<73> 
<28> 
x196> 
<159> 
<97> 
<108> 
«757 
<181> 
<86> 
«1873 
897 
<119> 
<92> 


.19 





__ ZEROGERZANMIHTIE 


183 DATA2,685,30,1.054,15.1.881,15,2,685,15, 
1,739,15,2.704,15,1,7780,15,2.685.15 

104 DATA1.798,15,2,643,15,1,810,45,1,596,15, 
2,685.15,2,739,.15,2,818,45 

185 DATA1,0,8 

186 VOL® 

187 GOSUB112 

188 PRINT"{HQME BLACK)" :POKE2821,8:POKE2924, 
7 ' 

109 PRINT" { HOMEYCLR: LOAD" :CHR$ (34) ;"H.MAIN"; 
CHR$ {34) :".";PEEK(174) 


118 POKE1319.19: POKE1S29,.13:POKEL321,82:POKE :- 


1322,05:POKE1323,78:POKE1324,13:POKE239,6 
111 END 


E CS RIGHTY" 
113 CHAR1,0,22,"{RIGHT CN CO CP CO CN CO CP 
EN EN CO CR CQ CN CO ER CH CN CO ER CQ EN CO 








MC-LISTING MIT CHECKSUMMEN OVM1@ >59A8 FE FE 
>59B@ 7E FE 
>5800 7E C3 99 Al Ai 99 C3 7E :;:AB | ?59B8 FE FE 
>»5888 FC FE C6 FE FE C6 C6 08 ::A6 259C8 7C FE 
>581@ FC FE C6 FE C6 FE FC da ::60 | ?59CA 7C FE 
»5818 7C FE C6 CO C6 FE 7C 08 ::70 »59D8 088 88 
»582@ FC FE C6 C6 C6 FE FC 08 ::90 | ?59D8 00 08 
»582B 7E FE CO F& Cö FE 7E 88 ::48 >59EB OE 18 
»5838 7E FE C® FB Ca Ca Co 00 ;:A2 | ?39E8 Be va 
»5838 7C FE C@ CE C6 FE 7C 98 ::B6 | ?39F8 C6 08 
>5848 EE EE EE FE EE EE EE 88 ::EO >59FB IC 56 
»5B48 7E 7E 18 18 18 7E 7E 08 ::Aa | ?>AQ0 90 98 
25850 7E 7E @C BC 6C 7C 30 08 ::02 | ?5ABB-FF FF 
>5858 C& CC DB PB FO CC C6 00 ::80 j >>AlG FF FF 
>5860 C® Ca CO CO Ca FE 7E 0@ ;:5E | ?SAlO FF FF 
>5868 C6 EE FE D6 C6 C6 C6 @0 ::Au ; ?>A20 DB DB 
>53879 C6 E6 F6 FE DE CE C6 90 ::c8 | ?>A28 DB DB 
»5878 7C FE C6 C6 C6 FE 7C 00 ::EB } >>A38 DB DB 
>5880 FC FE 66 7E 7C 68 60 00 ::a6 | 72438 BP 03 
>5888 7C FE C6 DA DE EE 76 @0 ::2C | ?>A40 90 Co 
>5898 FC FE 66 7E 7C 6C 66 80 ::ce | ?5A48 7F 7F 
>5898 7E 7E 88 7C 82 FE FC 98 ::BC SEE Er ZE 
»58AQ 7E 7E 18 18 18 16 18 00 ::CA | Soncg Eu FB 
>58A8 C6 C6 C6 C6 C6 FE 7F @B ::@7 | Sonea FF FF 
>58B0 C6 C6 C6 C6 6C 7C 38 88 ::50 | SS,,g FF FF 
>58B8 C6 C6 C6 D6 7E 6C 44 @® ::E6 | S2259. pr pP 
>58C0 C6 C6 7C 38 7C C6 C6 @8 ::38 | Soyag cc cc 
»56C8 C& C6 EC 7C 38 7@ E@ 06 ::FE | Yoyog ao 90 
>58D0 FC FE 1C 38 7@ FE 7E 00 ::ER | An, cr 
>58D8 3C 30 38 3@ 38 30 3C 88 ::DB | Tonog 33 = 
>SBEQ BC 12 38 7C 38 62 FC 00 ::08 
358EB 3C BC BC OC 6C 2C 3C 68 :;10 san = = 
>5BFü @@ 18 3C 7E 18 18 18 18 ::94 En = = 
>5BF8 00 18 3a 7F 7F 30 18 88 ::07 
35900 O8 80 20 dB a8 PB O0 08 ::59 | DABB 33 33 
>»5988 FF FF FF 00 06 88 00 00 ;:5B | ?>ACa CC cc 
>5910 86 08 08 80 70 38 1C @E ::ıD | ?>ACB Ba FF 
>5918 FF FF FF BE IC 38 70 00 ::aF | ?5ADe FF FF 
35928 08 Q0 @0 00 OE IC 36 7@ ;:6F | ?>ADE C6 08 
»5928 FF FF FF 70 38 1C @E 88 :;5D | ?SAEO C6 06 
>5038 00 ®1 07 1E 1E 87 61 8 :;pF | ?SAEO 18 16 
35938 7E C3 3C FF FF 3C C3 7E :.ED | ?>AF® 08 00 
»5948 08 B@ EB 78 78 Ed 8B 00 :;3ı | DAFS FF IF 
»5948 E@ Ed E0 08 BO 00 90 0a ::Eı | >B22 08 00 
»5950 07 07 07 08 00 0@ 08 20 ::D3 | >08 DS 55 
»5958 00 18 18 7E 7E 18 18 08 ::cF | ?3B10 00 06 
»5960 08 00 00 00 7@ 38 IC BE ::6D | ?>B18 Ba 06 
»5968 08 28 00 7E GB 0@ 98 &B ::B9 | ?>B20 28 06 
5970 08 86 20 00 08 18 18 90 ;:oı | E28 aa 20 
>5978 Q@@ 03 B6 &C 18 30 60 OB ::51 | ?783@ CC cc 
>5980 7C FE CE D6 E6 FE 7C 98 ::Eo | ?9B38 55 55 
35988 1C 3C 7C 7C IC Ic ıcC 80 ::Dı | ?>B40 20 08 
»5990 7C FE CE 1C 38 7E FE 08 ::39 | ?>848 FF FE 
»5998 7C FE @6 7E 06 FE 7C 08 ::E9 | 235370 BA AA 
>59A® CC CC CC FE FE 0C 9C 08 ::ap | ?5B58 AA AA 





ERCNGOCEKENKCERHNCCG EC 
N CO RICHTI" 
114 CHAR1,8,23, "RIGHT CK CL CM CK EL CM CK 
£L CM CH EL CM CK CL CM CK CL CH CK CL CH CK 
CL CM CK CL EM CK CL CM CK EL CM CKELLCHMC 
K CL RIGHIY" 
115 F1=9:1L1-3:F2=3:1L2=3: ZFe8:ZLe=7 
116 REM 
117 POKE65287 , PEEK{65287)0R16° 
118 POKE65322,F1-1:0Q=L1*16 :POKE65302.PEEK.(6 
53827 +09 
119 POKE65303,F2-1 :QQ=L2*16 :POKE65383, PEEK (6 
5993) +0Q: 
128 OQ=ZL*16 
. 121 FORD=2TO2: FORT=1T038 : POKE28898+ (D*48) +T,2 
F+7: POKE2888+ (D*48)+T, PEEK(2888+ (D*49) +T) +NQ 
122 NEXTT,D 
123 RETURN 
ENDE DES LISTINGS 
06 FE FE 08 ::FF f >S5B66 88 Da Q8 FF FF @8 00 00 
c6 FE 7C 06 ::E9 | >35B66 1a ı8 18 IF IF 06 20 08 
36 70 E@ 88 ::70. | >5B70 88 00 08 26 AB AB: 90 94 
C6 FE 7C 88 ::F9 } >5B78 QA 2A AA Ab 95 95 55 55 
7E 96 FC @@ ::Al | >5B80 FF FF 06 60 09 08 aa 90 
a0 18 18 00 ::@9 | >SB88 28 u@ 80 88 FF FF 00 08 
80 iB 18 38 ;::ı »5B9Q 08 29 20 88 08 02 82 
30 18 OE 08 ::69 | >5B9B 55 55 5D 7D FD’F5 BS 95 
7E 08 806 080 ::31 | >5BRO FF FF FF FFFFFFFF 
C6 FE 7C 08 ::Bı | >5BAB @1 63 87 OF 1F 3F FF FF: 
18 08 18 0@ ::BB | >5BB® 75 75 FS FD FF FF FF 
FE 88 08 88 ::51 | >SBBB FF FF 08 00 08 aa a8 998 
DF D8 DE DB ::5B | >5BCa 00 06 08 28 2A AA 9A 96 
FF 00 FF FF ::4F | >5BC8 80 AG AR 6A 5A 56 55 55 
FB 1B DB DB ;::C2 | »5BD8 83 03 a3 83 83 83 FF FF 
DB DB DB DB ::46 } »5BDE 20 00 00 06 88 FF FF 08 
FB 03 FF FF ::3A | >5BEO 88 00 FF FF 60 08 08 28 
DF CO FF FF ::EB | )5BES 18 18 18 F8 Fa 08 0a 00 
87 07 03 08 ::2B | »5BF@ 80 CO EO FO FB FC FE FF 
Ed EB CB 88 ::ıR | »5BFa 08 FF FF 00 08 08 80 098 
or 07 83 @l ::EA »5C06 FE FE FE 36 38 38 39 3B 
Fo EB CD 80 ::AB >»5cC08 3F 3E 3C 38 36 FE FE aa 
7E FF FF FF ::16 >»5C18 7E 7E 7E 38 70 EO EB FO 
FE FF FF FF ::57 | 35C18 76 78 38 3C ıC 3E 3E 08 
7F 3F AP 87 ::BE | 35020 FC FC FC 78 7C FE 7F 77 
FE FC F&6 EO ::62 | 935C28 73 71 73 73 70 F6 FB 08 
FF FF 00 08 ::C4 | »5039 cc ac CC CC 0C IE 1E 08 
cc CC CC CC ::8A | 35038 3E 3E 3E IC 3C 7C FC EC 
08 00 FF FF ::CC |. 35040 F8 Fa Fa 78 73 73 71 73 
ca C7 CF CC ::1C | »5CA8 77 7F FE 7C 78 FC FC 08 
03 E3 F3 33 ::5E | >5C58 DC FC FC 7C 3C 7E 7E 88 
33.33 33 33 ::26 | >5C58 3E 3E 3E IC 9C 9C 1C 9C 
67 CE CD EC ::91 | 35C60 07 98 CO FF FF FF C@ 08 
E3 F3 33 33 ::41 5068 FC 3E BE FC FB EG 60 09 
@3 @7 FE FC ::iB | 5070 06 7E FE FE 06 00 06 Ed 
co E® 7F 3F ::75 | 35078 08 81 87 OF 1E 38 3E IF 
00 FF FF 00 ;:ı@ | 5C86 FF FF 7F 33 13 03 03 93 
‚FE EF FF FR :196 >5C88 80 Ba 08 82 FO Fö Fa 08 
C6 FE 7C 88 ::98 | Y5cC9& FF 7F 3F IF or 07 03 01 
C6 FE C6 88 ::AB | 35098 FF FE FC FB FO ED Ca 80 
18 18 18 18 ::A2 | »5cahQ 91 @3 07 OF IF 3F 7F FF 
76 36 36 08 ::57 »Scaha 83 83 03 083 3F 37 3F 00 
ar 07 83 01 ::ıA >»5CBe FO 00 08 08 87 87 07 00 
08 08 88 @@ ::5B | »5cCHa Fa Fa FO FA FC FC FC 00 
FF FFFFFF <:41 | )5cco F® FO FO FO FO FO Fo Fo 
FF FF FF FF 2:51 >5CCB 08 81 03 287 AF AE 3C 78 
80 d8 80 &2 ::03 | »5cDe 80 00 08 81 97 IF 3F 08 
08 28 BO FF ::73 »5CDa FO Fa FO F® FB FE FE FE 
68 08 FF FF ::74 | )ScE@a 98 08 E@ FO 7F 7F ıF 00 
ce cc 33 33 ::15 >5CEB 7F FF 7F 00 08 BF OF eF 
DEIEREEFIRE 209 >5CF@ FF FF FF 38 38 38 3F 3F 
CC CC 33 33 ::5C | 35CF8 EO F8 F& 18 Ce FB FB 3C 
F& EA CO 88 ::A2 | 5000 00 00 08 Da dA 92 98 BD 
35 55 55 55 ::BD | 95ppa FE FE FE OE FE FE EE ®E 
95 55 55 55 ::25 | >5D18 FF FF 7F 33 13 03 83 03 
C16 - SA 5/89 


<103> 


<149> 
<153> 
<3> 

%246> 


<99> 


<201> 
<116? 


<182> 
<56> 
<9> 


PROG@GRAMME BE 


>SDLd FF FF FE CC CB CD CO CO ;:44 | >5E1B FC FC FC Ce Ca CO CO C@ ::DE } >5Fıa IC 1C 1C IC 3E 3E 3E 80 ::EB 
>5D20 F& FO 70 38 IC GE 07 83 ::BE >5E28 Ca C8 CB CO FC FC FC 08 ::B6 »5F20 78 78 FB FO FO EO BB 00 :; FF 
>5D28 3E 36 1C 38 70 E® Ca BU ::23 | >5E2B FF FF FC 3C 3C 3C 3F 38 ::AC | »5F28 78 79 78 IC 3F ıF 07 00 :;:6D 
>5D38 83 87 BE IC 38 FC FC @8 ::1C | >5E30 äF 36 3C 3C FC FF FF 08 ::CB | »5F3a 71 70 7a 70 F& FO FO 88 ::68 
»5D38 BO CO EO 70 38 7E 7E 00 ::73 | >SE98 Fa 78 3C 3C 7C FB FO 00 ::E6 | »5F3B E® FF FF FF EO 01 83 07 ::21 
>»5D40 1 00 aa 0a 88 BO 99 85 ::9E >5E49 F® FB 7C 30 3C 7C F8 FO ::3E >5F4B 09 3C 3C 30 3C 3C 3C 88 ::F3 
>»5D48 3F 3C 38 38 38 FE PE FE ::D2 | »5EAB EB FB FC FC 3E 1E IE 1E ::06 | »5Faa 78 78 38 3C 1F OF 03 80. ::Bi 
»5D5B 00 09 9a EB 7F 7F IF 88 ::FRA 35E50 78 78 7C 3F AF AF 97 086 ::AC | »5F50 00 FE FC FB FO E® CD BO ::AF 
»5D58 Fa 78 3C 3C ?E FE 7E 88 ::ıD >5E58 iE 1E 3E FC FC FO E@ 08 ;:96 >5F58 FE FE FE 38 38 3F 3F 3F ::CE 
»5D68 20 BDO 2D aa a3 62 83 66 ::;F3 »5E60 DE FE ?7E FC FC FE EF 07 ::A3 »5F69 EB FO 78 3C 7E 7E 7E 88 ::B3 
»5D68 F8 FB 70 78 7C 7E 77 73 ::16 | 35E68 90 DD 28 FC FC FC FC 00 ::6E >5F68: 01 83 87, 07 OE @E AF AF ::6A 
>5D78 1C 1C 1C 3C F8 FO CO 88 ::ıD 35670 FF FF FF 3C 30 3C 3C 3C ::D® s5F7@ 38 38 38 38 FE FE FE 08 ::DB 
»5D78 03 OF IF 38 73 7F 7F 76 ::C5 >5E78 3C 3C 30 3E FF FF FF 00 ::28 >»5F78 aa 8B iC FC FC FC ıC 80 ::B3 
»5DB6 FF FF FF E@ EO FC FF IF ;::90 »5E8@ FF FF Fü 36 38 38. 3F 3P ::BC | »5F80 EB FB FC 1E OE 1E FC FO ::B9 
>5D90 6@ E@ F8 FC 7C IE 1E 1E ::E7 | »sE9@ FE FE DC 08 80 CB Ca CO ::EC | >5F98 3E 3E 3E 1C 1C FC FC FC ::BB 
»5D98 83 OF IF 7F 78 FO F@ 08 ::57 >5E98 CB CO 28 aa ec FE FE 20 ::78 35F9B GE OE BE 1E FC F8 E@ 00 ::9F 
»5DA@ 07 @7 EO FO 7F 3F OF 0@ ::D® | ysEAa 3F 38 38 38 FE FE FE 80 ::11 | »SFADO 36 3C 3C 78 FB FB CO 08 ::FF 
>5DAB FB FC FE 1E FE FC FO 08 ::8D 35EAB 87 ıF IF 3F 7C 78 70 78 ::48 S5FA8 3C IE 1E 1E OF 87 03 00 ::DB 
>5D58 Fa: FC FE 3E 1E 3E FC FO ::9D >SEBB FO FB FC 1C 18 1® 08 08 ::32 3SFBB 3F 3C 78 78 FC PC FC 06 ::CE 
>5DC0 @8 F& FO FO FE FE FE FE ::59 | ,sEcQ 07 1F 3P 78 60 EO EB E@ ::28 | >SFch FF FF FF 38 38 38 38 3B ::A9 
»5DCB F& F® Fd FO FF FF FF FF ::6B | 3sEc8 EO EB 60 7@ 3F 1F 87 @® ::CC | >SFCa GF 1E 3C FF FF FF 96 08 ::17 
»5bDa FC FC FC 00 00 08 80 Ed ::95 | »5Ena 08 @& GE IE FC F& EO 00 ::AC } 5FD8 FC FC FC 78 78 78 78 78 ::27 
»5DD8 97 81 EB FD 7F 3F OF 08 :: FC >SEDS 80 CO EO ES 60 70 Fa F@ ::E6 >SFDB 7E 7E 7E 3C 30 3C 30 30 ::33 
>5DE@ BB DB 07 07 07 87 07 08 ::EC >5EEO 3E 3E IC IC 1C IC 10 90 ::94 >5FEO 3F 39 38 38 FE FE FE 80 ::54 
>5DEB 20 0Q EQ E6 EB ER Ed 806 ::25 S5EE8S DC FC 7C 3C 7E ?E 7E 00 ::5A >SFEB 38 38 3B 38 FF FF FF 88 ::85 
»öDro Bor 3F 78 79 78.3F OF 88 ;::3D >5EF@ F& FC 3E OE GE 3E FC F@ ::46 3SFFO EO FB FC 1C 0E BE BE @E ::ER 
>SDF8 FO FC 1E GE 1IE FC FO 09 ::DD >5EFB FO FC 3E 8E BE 3E FE FC ::BC >SEFA EO 00.00 d0 00 00 BR 08 ::37 
»5E@0 OF AF 7C 70 76 7C 3F OF ::6B | »Grao ıc 38 38 78 Fa E@ CO 00 ::99 | Y600G 00 2 DD DD 00 20 A aB ::69 
>»5ERB 33 99 CC 66 33 99 CC 66 ::28 »5F@8 3C 78 78 78 FO EO ca a8 ::0B 36008 22 20 20 00 00 00 80 08 ::68 
»SE1® 3F SF 3F 83 03 03 63 83 ::42 | »5F1@ FC FC FC 78 78 78 3C 3C ::E3 | ENDE DES LISTINGS: (0VM) 





MC-LISTING MIT CHECKSUMMEN OVMIO 5135 ca 18 Da F6 C6 EO DO DI ::17 | 35288 40 58 79 BB AQ BB DB EB ::92 
>5140 60 EA EA ER EA ER EA ER ::EF | 5288 01 02 82 ba 05 06 07 80 ::A6 
>5008 A9 68 85 DB AS &C 85 DI ::EB »514B A9 393 A2 0G 9D 86 BC 9D ::E7 »5298 A939 ®B 28 EB 52 28 08 50 ::45 
>5008 A2 00 AS 09 38 E9 94 85 ::1F | >5150 00 OD 9D 08 BE 9D @@ OF ::FE | >5298 6@ EA AG 00 28 EB 52 2B ::37 
>581® D9 AB 09 AD 19 FF 29 7F ::BB »5158 Ch DO FI 85 E7 AS E& A2 ::8B | »352A0 68 58 69 EA A9 O1 28 EO ::F5 
>5018 91 DA CB CO 28 Da F9 A5 ::AB | 5168 66 AB 06 GB DA FD CA DB ::15 | >52A8 52 26 EB 58 6@ ER ER ER ::7E 
5028 D9 18 69 04 85 DI A6 00 -:Da | >5168 FB 38 ES Q1 Da Fı A5 E7 ;:51 | >520@ A9 02 2D ED 52 2@ 88 51 ::7L 
>5@28 BD 5B 56 91 DB CB Ca 28 ::87 »5172 38 EI 81 C9 30 DB DI 60 ::87 | »52BB 6a EA A9 03 20 EB 52 28 ::63 
5838 DO FO EB E@ 06 DO 14 A2 ::1E | ?5178 A9 B& 8D 11 FF AB 88 EA ::C8 | »52C0 48 51 60 ER A9 01 20 EB ::F7 
>»5038 08 A5 DA 18 69 28 85 DB ;;1A | >518@ EA AD 20 FF 25 81 FA 65 ::DC | „S2ca 52 20 78 51 60 ER EA EA ::6A 
35040 90 82 E6 DO AS DB C9 EB ::42 | 5188 AD 11 FF C9 BA FA F2 CE ::E7 | 35200 A9 @1 20 ED 52 2a CD 51 ::CcF 
>5048 DB 01 60 A9 06 AO 08 CA ::2E | 54198 11 FF AC 9F 51 AD 11 FF ::62 | 5208 60 EA ER EA ER ER EA ER ::88 
35050 D® FD 18 69 B1 C5 ER DB ::99 } 5198 C9 B7 F& E5 EE 11 FF A9 ::Di | )52E0 85 DF 20 28 52 60 EA EA ::95 
>5058 FA FO AF 63 77 70 E2 FO ::2E | ?51A0 08 85 E6 66 E6 AS E6 C9 ::33 | 5228 EA ER ER EA EA ER EA ER ::22 
»5060 EF EA AO ER EA EA ER ER ::B3 >51AB aA DB FE 88 D@ D3 C6 EB ::17 >52F@ EA EA ER ER ER ER ER ER ::2A 
S5068 A2 aa AD 19 FF 29 7F 9D :;17 | >S51BG DO CH 60 ER EA ER ER ER ::F3 | »52F8 ER EA EA EA ER ER EA ER ::32 
35070 00 08 9D @8 89 9D Qa@ OR ;:D2 | ?51B8 EA EA ER EA ER EA ER EA :;:Fl | 5300 AS CD BD 12 FF AY 39 OD ::53 
>5078 9D @@ 0B CA DO Fi A9 AG ::93 ! >51CD A9 08 85 ES A9 08 85 E6 ::FD | 5308 13 FF AO 00 84 DS 84 DB ::6A 
359RB 9D 00 @C 9D 06 OD 9D 08 ::9E | ?SiCh AD Q4 FF 29 03 18 69 @B ::2D | »551@-A9 DO 85 DA A9 38 85 DC ::C9 
350868 OE 9D 00 OF CA D@ Fi A9 ;:0D j ?51D9 85 D9 AD 0@ FF 85 DO AQ ::68 | 35318 A2 97 B1 D9 91 DB CA DE ::81 
350800 CO 83 D& A9 OF 85 D9 A2 ::3E | >51D8 08 AD 19 FF 29 7F 91 DB ;:48 | 35320. FO E6 DA E& DC CR 10 FZ ::66 
350968 07 A@ 00 BD Da 50 91 DB ;:CA | ?P1EB AS D9.18 69 84 85 D9 A9 ;:DD | 5328 AC 33 53 33 99 CC 66 33 ::19 
>5gAd CA C@ 28 D® F9 CA EO FF ::Aı | ?SIEQ AB 91 DB A6 EB CA DO FD ::CF | 35330 99 CC 66 AD BB B9 2A 53 ::A2 
>»5eAB DO 14 A2 @7 AS Da 38 E9 ::aB | >S1FO ER ER ER ER EA E6 E6 DB ::25 | 35338 99 07 SE 88 DO F7 78 R9 ::D6 
»50B0 28 85 DB BO 02 C6 D9 AS ::3P | ?52FA CF E6 ES AS ES C9 15 DO ::69 | 35340 AF 6D 14 03 A9 53 8D 15 ::06 
»5058 DB C9 DB DO Di 60 AQ BR ::ıE | ?5200 C3 A2 00 AD 19 FF 29 7F ::90 | 25348 03 A9 05 85 DO 58 60 C6 :;2B 
>50C0 AQ 00 CB DO FD 18 69 Bl ::BB | 5228 9D 8% 08 9D 08 09 9D 00 ::94 | >5358 DB FO 93 4C BE CE AY 05 ::75 
>»50CB C5 EO DO FA F@ CH EA ER ::05 >»5210 QA 9D 96 BB AR9 AO SD BB ::2A | >5358 85 DB AB d6 BY 07 SE 49 ::81 
»50D@ 20 63 77 78 E2 F9 EF E4 ::34 | 5218 ac 9D 86 OD 9D 20 BE SD ;:3P | 35360 FF 99 87 SE 68 DO FS 4C ::0C 
>50D8 EA EA ER ER EA ER ER ER ::10 | ?5220 08 OF CA Da DE 60 EA ER ::7A | 35368 DE CE 78 A9 GE SD 14 03 ::A9 
>50E0 AG 08 AD 08 FF &D 15 FF ::AB | ?5228 20 79 84 FO 89 C9 2C F@ ::EF | >5378 A9 CE BD 15 93 58 60 90 ::C2 
»50E8 BD 19 FF A2 08 EB EO 18 ::8C >3230 8B A2 @B 4C 83 86 208 73 ::4D | >5378 FF FF FF FF FF FE FF FR ::A? 
»5AF@ DB FB 5 D® ED C6 EB DO ::83 | ?5238 04 AC 2B 52 206 73 084 F& ::DD | >538@ A2 00 AD 1D FF 29 7F 9D ::42 
>5or8 E7 60 EA EA EA EA EA ER ::19 | >5248 FB .C9 31 90 84 C9 39 98 ::CB | >53886 EG 29 EB EQ C6 FO 83 AC ::02 
»510@' A2 00 A9 AQ 9D BR BC 9D ::BB | ?5248 04 A2 BE DA E6& 85 DA 20 :;DE | >5398 87 53 608 08 00 90 DO 28 ::38 
35108 88 ED ID 00 GE 9D 08 OF ::B6 | >5259 73 04 F@ 06 C9 3A FO 82 ::EE | 5398 a0 08 00 29 80 80 00 00 ::EB 
>511® CA DO EF A2 00 AD 02 FF ::34 | ?5258 D@ EF AS DA 38 EI 31 85 ::BC | »59A0 00 00 00 08 08 80 06 00 ::P3 
>»5118 29 03 18 69 aß 85 D9 AD ::21 } ?5268 DA A5 DF DR BA OR 18 65 ::D9 } 5318 2D 08 00 00 08 20 08 86 :: FB 
>5120 04 FF 85 DB AQ Ba AD 88 ;:;:30 eh DA AA BD 76 52 85 EQ 60 ::B? 
>»5128 FF 29 7F 91 D8 CA D® ES ::57 5270 @1 83 05 08 aC 10 18 28 ::7C 
5138 AB 00 A2 @@ EG D® FD CB ::9A | 5276 20 40 60 86. AO CO EB 96 ::aAä | ENDE DES LISTINGS (OVM) 
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E72 


C16 - SA 5/89 21 


| 


BE IPROSLY/ALIMIE 


C-16 LISTING + CHECKSUMMEN (0C V1.0) 


1 6G=-9:COLOR4, 1 5 
2 POKE5S, 255 : POKES6, 79: POKES1, 255: POKE52.79 
3 FORI=1T05:HI$ (I) ='"008088" : NEXT:HS$(1)="FRA 

NK{SPACE4} " :HS$(2)="MICHAEL{SPACE2}" 

A HS$(3)="FRANK{SPACE4) ":RS$(4)="MICHAEL{SPA 
CE2}" :HS$15)="FRANK{ SPACES} " :SK=4 

5 TRAP138 

6 SYSDEC("SI6A”) 

7 3Y321290,6 

6 DIMBU$ (90) :POKE652897,136 

$(46)="{SPACEZ DOWN LEFT2}<={UP}":BU$ (AB)e"t 
SU SI DOWN LEFTZ 5J SK UPY" 

18 Büg (A9)=-"YXt DOWN LEFT2Y VW UP} ":BU$(50)="3 
2{DOWN LEFT2}ZI{ UP} ":BU$(51)="67 (DOWN LEFT2) 
astup)” 

11 BUS(S2)="9B1 DOWN LEFT2}VWLUP}”:BUS(53)="Q 
:{ DOWN LEFT2};?tUP}" BUS (54)="/_t DOWN LEFTZ 
ai CW URN" 

12 BU$(55)="} {DOWN LEFT2) ‚WLUP}” :BUS (56) =" f 

S*tr{DOWN LEFT2} >?{UP}” :BU$157Y="(S* C* DOWN 
LEFTZYN{SHIFTSPACE UP)” 

13 BU$(SB)="<e{ DOWN LEFTZY<={ UP)" :BUS(65) =" 


ENTE EB TR 























en en AFFE, Blake 








ra Kl Br Te TE 


16 BU$t73)="(SB SC DOWN LEFT2}ULSD UP}”:BUSL( 
74)="(SPACE C- DOWN LEFT2}*. {UP}” :BU${75)-"* 
B{ DOWN LEFTZYACLUP}“ 

="DG{ DOWN LEFT2) EF{UP}":BUS(78)="-(C- DOWN L 
EFT2 C+ 3 UP)“ : 
18 BU$(79)="{SU SI DOWN LEFT2 SI SK UP}":BUS 


"SU 51 DOWN LEFT2 SI SL UP" 

19 BVU$(82)="{5P}r{ DOWN LEFTZ SOY+{UP}":BU$ (9 
3)="ON!DOWN LEFTZ2}LM{UP}" :BUS(BA)""PHtDOWN L 
EFTZYUI SD UP}" 

(88) ="$%1. DOWN LEFT2}&* { UP}" :BU$ (87 )="HKi DOWN 
LEFT2YTILUPY" 

22 BU$t89)="E%{ DOWN LEFTZYUQLUP}" 

23 BU$t96)="1CM CN DOWN LEET2 C9 CP UPY":TRA 
P138 :POKE65287,136 

24 STRICHS=" C\}":SYSDECE"533E”) 

25 COLORB.1:COLOR4,1:COLOR1,3,2:POKE65286,11 
PRINT” { HOME2}" 

26 PRINT"{LCLEAR RVSON DOWN SPACE12}" ;STRICHS 
;STRICH$ 

27? PRINT" {RVSON RIGHTS SPACESY”: 

28 PRINT; :RESTORE58 :FORI=-1TO11:READA :PRI 
${A) : :NEXT:PRINT ; 

29 PRINT”{RVSON DOWNS WHITE RIGHT3 SPACE2)"; 
38 PRINT; :RESTORE5S9: FORI=-1T015:READA : PRINTBU 
$ (A) ; :NEXT:PRINT 

31 PRINT"{RVSON DOWN2 SPACE RIGHT17}”; 

32 PRINT: :RESTORE6% :FORI"=1TO2 :READA :PRINTBU$S 
(A) ; :NEXT: PRINT 

33 PRINT"{ RVSON DOWN2 SPACE3 RIGHT3Y"; 

34 PRINT; :RESTORE61 : FORI=1T014 ; READA ; PRINTBU 
${A)::NEXT:PRINT 

35 POKE2822.7:POKE65286,27:FORI=1T01288 
36.IF JOYt1)>127THENGSCTO139 

37 NEXT: POKE65286,27 

38 PRINT" { HOME} ” :FORI=1T018 : PRINTCHR$ (27) +"I 
" «NEXTI :POKE65286,11 























22 


<109> 
«21? 


2277 


<113> 
<183> 
«2977 
<B8> 

<«129> 


<245> 


<1> 


<150> 


<116> 


<237> 


»<123> 


<134> 


<68> 


2147 


<80> 


«457 


<62> 
<123? 
«1997 


<1984> 
%44> 


<176> 


<249> 
<197> 


"<207? 
<194> 


<15> 
<97> 


%27> 
<196> 


<218> 
<25? 
<188> 
<2> 


<102> 


39 PRINT"{RVSON CLEAR DOWN2 RIGHT'9YY"; 
4@ PRINT; :RESTORE62 : FORI=1T012:; READA :PRINTBU 
${A) : :NEXT: PRINT; PRINT 

41 PRINT"{RVSON DOWN SPACE10}Y"; 

42 PRINT: :RESTORE63: FORI=?T011:READA: PRINTBU 
$(A) : :NEXT:PRINT:PRINT 

43 PRINT"{RVSON DOWN SPACE12}"; 

44 PRINT; :RESTORES4: FORI=1T011:READA : PRINTBU 
$(A) : :NEXT:PRINT:PRINT 

45 PRINT"{RVSON DOWN SPACE9}“; 

46 PRINT; :RESTORE65 : FORI=1T012:READA ; PRINTBU 
$tA) ; :NEXT: PRINT 

47 POKE65286,,27:FORI=1T0190@ 

48 IFJOY(1)>127THENGOTO139 

49 NEXT: COLOR4,.1 

ae FORI=1T020 : PRINT" {. DOWN)" :NEXT :POKE65286,. 
1 

51 PRINT"{CLEAR DOWN RED)“ 

52 PRINT"{RVSON SA48Y” 
FORI=1T015:PRINT'"{RVSON SA RIGHT3B SAY“ 
54 NEXT 

PRINT" {RUSON SA39)” 

POKE4831, 193 

G0T0O71 _ 

58 DATA72,79,76,.76,69,78.70.69.85.69.82 
DATA67,82,69,65,84,69,68,32,73,70,32,49,.3 
7,56,57 

6@ DATA66,89 

a 
62 DATA71,82,65,80,72,73,67,03,32,65,70,68 
63 DATAB3,79,85,78,68,83,32,87,69,82,69 

64 DATA68,69.83,73,71.78,69,68,32,66,89 

65 DATA7®,82,65,78,75,32,75,02,65,85,83,69 
66 DATA71.,82.69.65,84,69.83,84.32,89,.76.65,8 
9,69,62,03 

67 DATAA9,46,76,79,65,68,32,72,73,.71,72,83,6 
7,79,82,69,83 - 

[1:1 DATA50,46,83,65.86,69,32.72,73,.71,72,83,6 
7,79.82,69,83 

69 DATA51,46.83,80,73,69,76,69,82,99,65,72.7 
6.32,58.32,.52 

78 DATA52,46.03,880,73,69,76.32.66.69.69,70,6 
8,69,78 R j 
71 PRINT"{RVSON HOME DOWN2 RIGHTA WHITE"; 


Gern Apmmen AA E 3 AA nn Zn 








$(A) ; :NEXT: PRINT 

73 PRINT"{RUSON DOWN2}" 

74 FORI=1T05 :PRINT" {RVSON RIGHT2}" ; :PRINTBU$ 
(A4B+I) :BU$ (46) ; : PRINT" tSPACEZ)"; 4 

75 FORR=1T018:PRINTBU$ (ASC{MID$CHSS(TI.R.1)) 
) ; :NEXTR:PRINTBU$ (32); 





‚76 FORT=-1T05:PRINTBUS (ASC{MIDS{HIS I) ,T,1})) 


::NEXTT: PRINT" {RUSON RIGHT2} " :NEXTI : POKE6528 
6,27 Tun 

77 FORI=1T01108: 1FJOY (1) >127THENGOTO139 

78 NEXT x 

79 FORI=1T020 :POKE2021, 24: POKE2Q22,7 

88 POKE2023,49-I:SCNCLR 

91 PRINT" HOME2}" 

82 POKE2821,24:POKE2Q22,7 

83 POKE2024,1 

84 SCNCLR 

85 PRINT" (HOME2}" :NEXT:POKE2022,7 

86 PRINT"{ CLEAR)" :POKE65286,11 

87 COLOR1,9, 2: PRINT"{SPACE RVSOEF CI)”; :FORL 
=2T07:COLOR1,9,I: PRINT" {RVSOFF CH3}" ; :NEXT 
88 FORI=7TO2STEP--1:COLOR1, 9,1: PRINT" {CH3Y";: 
NEXT: PRINT" (cy}® 

89 FORI=2T07:COLOR1,9,I:PRINT" {SPACE CH SPAC 
E36 CH SPACE)“ 

90 NEXTI . 

91 FORA=1T02:PRINT"{SPACE CH SPACE3S CH SPAC 
E)" NEXT 











C16 - SA 5/89 


<131> 


<240> 
<14> 


<234> 
<16> 


<242> 
<245> 


226> 
<183> 
<209> 
<174> 


<38> 
<101> 
<203> 
<58> 

<184> 
<65> 

<122> 
<195> 
<150> 


<250> 
<235> 


<219> 
<1> 
<126> 
<81> 
<119> 


<129> 
<181> 
<148> 
21483 


<182> 
<9> 


<58> 
<94> 


<107> 
<773 


<94) 
<127> 
<208> 
<234> 
<209> 
<93> 
<64> 
<177> 
<69> 
<241> 
<193>. 


< 2043 
<96> 


<208> 
<110> 


<94> 


92 FORI-7TO2STEP-1:COLOR1,9,1:PRINT"{SPACE € 
H SPACE36 CH SPACE}" :NEXTI 

93 COLOR1,9,2:PRINT"{RVSON SPACEIR" ; :FORI=2T 
07:COLOR1,9,T:PRINT"{ RVSOFF CH3}" ; :NEXT 

94 FORI=7TO2STEP-1 :COLÖR1, 9, 1; PRINT" { RUSOFF 
CH3}" ; :NEXT: PRINT” { RVSON}S” : PRINT" {RHITEY"; 
95 PRINT" {RYSON HOME DOWN2 RIGHT4 SPACE RIGH 
19 SPACE8} ",STRICH$;STRICH$ ‘ 

96 PRINT" {RVSON RIGHTS SPACE RIGHT18}" :BU$(7 
7):BU$ (69) :BU$(78) ‚BUS (85) 

97 PRINT” { DOWN} " 

98 PRINT"{RUVSON RIGHT3}"; : RESTORE67 : FORI=1TO 
17 :READA:PRINTBUS CA) ; :NEXT: PRINT 

99 PRINT"{RVSON DOWN RIGHT3}" ; :RESTORE6B; FOR 
1=1T017 :READA :PRINTBUS$ (A) ; :NEXT: PRINT 

192 PRINT" (RVYSON DOWN RIGHT3}" ; :RESTORE69:FO 
R1=1T017 :READA:PRINTBUS$ (A) ; :NEXT:PRINT 

191 PRINT"{RVSON DOWN RIGHT3}" ; :RESTORE?®: FO 
RI=1T015:READA: PRINTBUS {A) ; :NEXT 

102 SK=4:POKE652896,27 

303 FORI=1T0508 :GETA$ 

184 IFJOY{1)>127THENGOTO139 

105 IFA$="1"THENGOTO115 

186 IFAs="2"THENGOTO125 

107 IFAS="3'"TRENGOTO134 

188 IFA$S="4"THENGOTO137 

109 NEXT:A=166 






































<247> 
<188> 


<175>. 


<45> 


<772 


<249> 
<81> 

<195> 
<119> 


<160> 
<227> 
<101X 
<8> 
<242> 
<4> 
<10> 
4537 
<119> 


.... HR MUSSEN LEIDER ENERGIE SPREI 


NEU 


118 FORC=1T016: FORI=1T019 

111 POKE2209+I+A.97:POKE2208+1+A,® 
112 POKE2207-I+40+A, 97: POKE2208-I+39+A.8 
113 NEXTI :A=A+49; NEXTC 

114 601025 

115 P=PEERK (174) - 

116 IFP=8THENO=8 

117 IFP=1THENO=® 

118 L$="H.HIGH“ 

119 OPEN1,P,O,L$ . 

120 FORI=1T05 

121 INPUT#1.HS$(I) 

122 INPUT#1,#I$(I)::HSCI)=VALCHI$S(I)) 
123 NEXT - 

124 CLOSE1:60T051 

125 P=PEEK{174) 

126 IFP=8THENO=8; L$="@:H.HIGH,S,W" 
127 IFP=1THENO=1 :L$="H,BHIGH" 


C16 - SA 5/89 





<1651> 
<224> 
<155> 
£43> 
<2547 
<0> 
<80> 
<245> 
<al> 
<282> 
<215> 
<75> 
<164> 
<253> 
<127> 
<ı0> 
<173> 
<160> 


PROSRADLILUE Ba 


126 OPEN1.,P,0.1L$ 

129 FORI=1T05 

138 PRINT#1,HS$ (I) 

131 PRINT#1,HI$(I) 

132 NEXT 

133. CLOSE1:60T051 

134 SK=5K+1: IFSK=-STHENSK=-1 

135 CHAR1,35,17,BU$ (46+5K) 

136 GOT0183 

197 51565529 

138 RESUMENEXT 

139 SYSDECL"S3ISA") . J 

141 PRINT" {HOMEZ CLEAR}" :COLOR®@,1:COLOR4,1:P 
OKE65287,138 

1942 PRINTCHR$ (9) :PRINTCHR$ (14) :PRINTCHR$ (8) 
143 PRINT"{RVSON DOWN SPACES}"; 

144 PRINTEU$S{69) ;BU$ (78) ;BU$ (84) ;BU$ (69) ;BU$ 
(629; :BV$ (32) ;BU$ (89) ;BU$ (79) ;BU$ (85) ;BU$ (92) 


145 PRINTBU$ (32) ;BU$ (78) ;BU$ (65) ;BU$ (77) ;BUS 
(69) ;BU$ (32) ;BU$ (58) 

146 PRINT" {RVSON DOWN2}Y" , :L=0:D=1 

147 FORI=1T04:NA$(T)="":NEXT 

148 FORI=1TOSK 

149 PRINT" {RVSON DOWN2}“ ;BU$ (09) ;BU$ 76} ;BU$ 
(65) ;BU$ (89) ; BUS (69) ;BU$ (82) ;BU$L32) :BU$(ABr 
I):BU$(32); 

158 PRINTBUS$ (58) :BU$ (32) ; :POKEZ239,0 

151 GETKEYA$ 

152 REM 

ES a ae ag na nad WEN} :NEXTI: sor 
154 IFA$=CHR$ (28) ANDLEN (NA$ CI} ) >OTHENPRINT"{ 
RVSON LEFT2})" ;BU$ (32) ; "{RVSON LEFT2}” ; :ELSEG 
OT0156 

155 NA${II=LEFTS{NA$CTH) a le 

156 IFLEN{NA$(1}) >7THENGOTO1S1 

157 EFASCLAFI< >4$ANDASC (A$)<S >32THENH=-1 

158 IFH=1THENIFASC (A$)<ABORASC (AS) >SOTHENH=2 
159 IFH=2THENIFASC (A$)<C65ORASC LAS) >9BTHENPOK 





 E239,9:H=8:60T0151 


168 NASLI)=NASLTIHAS 

161 PRINT"";BUS(ASC(A$)): 

162 GOTO151 

169 NEXTI:D=1 

164 FORI=1T04: IFNA$(1)=""THENNA$(I)="COMPUTE 

R"+CHR$ (48+D) :D=D+1 

165 NEXT; FORI-8T012:POKE2023, 12-1: POKE2022,1 

2-1: POKE2024,27+1:POKE2021,12+I 

166 SCHCLR 

167 NEXT 

168 Pg="{RVSON}"+BUS (80) +" ( DOWN} "+BUS [B2) +" f 

DOWN} "+BU$ (69) +" { DOWN) "+BU$ (BB) +" ( DOWN) "+BUS 

(65) +" DOWN} "+BUS (82) +" ( DOWN} " 

169 W8=BUS (69) +" ( DOWN} "+BUS (32) +" { DOWN} "+BUS 

(84) +" { DOWN} "+BU$ (79) +" { DOWN} "+BU$ (32) +" { DOW 

N} "+BU$ (83) +" { DOWN) "+BU$ (84) 

17@ Y$="{ DOWN} "+BU$ (65) +" ( DOWN} "+BU${B2)+" (DD 

OWN} ”+BU$ (84) +" ( DOWN} "+BU$ (46) +" 1 DOWN} "+BUS 

46) +"{. DOWN} "+BUS (46) +" ( DOWN2} " 

171 P$=P$+W$+Y$+" { DOWN) " +BÜ$ (32) +" ( DOWN} "+BU 

$ (32) +" ( DOWN} "+BU$ (32) +" ( DOWN) "+BU$ (32) +" (DO 

N} "+BUS (32) +" { DOWNS) “ 

172 POKEZ39.0;ZA=1:CHAR1.19,19, "" 

125 EOBEAG2A. GR (PORE2093. 1YITORESBAS.A: POKE2 
1 

174 PRINTMID$ (P$.ZA. 2) ; :ZA=ZA+2: IFZA>LEN(PS) 

TBENGOTO176 

175 6070173 

176 PRINT" (HOME2 CLEAR“ 

179 POKE65286,11 

188 POKE65287, PEEK (65287) OR16 


: 
:H=8 








-181 COLOR®.1:COLOR4,1 


182 PRINT"{SPACE2 BRN 522 SPACE3 L. BLUWHOELL 
ENFEUER{SPACE3 BRN 5Z2 SPACE3 WHITE SU 5010 


SV} i 
183 PRINT" (SPACEZ BERN 522 SPACE18 522 SPACE3 


<211> 
<224> 
g104> 
x55> 
<6> 
<136> 
<193> 
<76> 
<207> 
<86> 
<108> 
<84> 


£28> 
X46> 
<73> 


<32> 


<182> 
<239> 
<189> 
<198> 


<16> 
<11> 
<125> 
$39> 


<287> 


<135> 
<24> 
<125> 
<197> 
<61> 


<112>2 
<114> 
<153> 
<248> 
x21> 


<216> 
<133> 


<142> 
<41> 


<82> 


<238> 


214373 


6> 
<214> 


<246> 


<224) 
<11> 
<189> 
<238> 
<53> 
<85> 


<249> 


23 











BE PNROSR/ALIME 


WHITE SP SPACE1@ STy" 





Zen „fu EIe Zen m sm Zinn nn 


ACEla STY" i 
185 PRINT" (SPACE GREEN ,{BRN 522 GREEN)&'((B 
RN 522 BLUES‘ ((BRN 522 YELLOM&' (BERN 522 R 
EDIE'({BRN SZ2 GREEN)S{SPACE2 WHITE SP SPACE 
48 STy" 

186 PRINT"{ GREEN) !#1SPACE2@ BRN 522 GREEN)%! 











ACEI@ ZN“ 

188 PRINT" {SPACEZ2 BEN 522 SPACE3 WHITE SB 5 
yYı13 35} u 

189 





ACE18 STr" - 





PACEI® STI* 
191 PRINT"{SPACEZ BRN SZ2 SPACEI SZ2 SPACEI 





SEE zen ZAIZOE ie u m 





mas zwalruf gas iur SER 


ACE18 ST" 
194 PRINT" (SPACE22 BRN 522 SPACE3 WHITE SR & 
Y18 55) 

195 BEN 522 SPACEI 522 

322 SPACEI 822 SPACE3 922 SPACE3 WHITE SP SP 
ACE1a SM" 

196 PRINT" (SPACE22 BRN 522 SPACEI WHITE SP 3 
PACEIO ST" 

197 PRINT" {SPACEZ BRN 522 SPACE3 322 SPACE3 
522 SPACEI3 322 SPACE3 5322 SPACE3 WHITE SP SP 


mu Amen ga Ze u u un En 








PACEI@ ST" 
199 PRINT"{SPACE2 BRN S22 SPACEI 522 SPACE3 
822 SPACE3 322 SPACE3 SZ2 SPACE3 WHITE SP SP 


ACE1@a STY" 
288 








_— zu Zn Hess 


San Inne Fo 2 Duo Dos mon Ste 2 oO mo 





PACHI@ ST)" 
283 PRINT" {SPACE2? SP SPACEIE ST)" 


204 PRINT"{SPACE CR CS CT CU CR CI CT CU CR 


mi zu zu Zu zu Zu Zi zu zu 


C3 CT CU CR CS CT CU CR 69 CT CU CR C5 CT CU 


u zn 2 zu na — = = _ 


SPACE2Z SP SPACEIG STI" 
205 PRINT"{SPACE CN CQ CP CQ CN CO CP CH CN 
LQ ER CO EN CO ER CO CNLCO ER CO CNCO ER © 


SPACE? SP SPACE1@ 377" 








hen mean mel ie we wu 


SPACE2 SX SQ18 IM"; 
287 FORC=-1T04:N$(C)="":PLC)=B:PP(C)«1:T$iC)- 
"980020" :NEXT:W=@: B=0.:G05UB422 :TRAPALB 
298 I=®:A=INT(RND(1)*4)+1:POKE239,9 
289 IFNA$(A)=""THEN208 
21@ B=B+1:N$(B)=NA$ (A) :NA$(A)="": IFB=ATHEN21 
1:ELSE208 - 

CHAR®, 28,1, "{GREEN}" :PRINTN$(1) 

CHAR®, 28,3." (GREEN) " ;PRINT"PUNKTE" ;P(1) 
CHAR9, 28,5," (GREEN) " :PRINTMID$(T$(1).2,1 
:":MIDE(T$(1).3,.2);":":MID$(T$(1),.5,23 
CHAR®, 28,7," BLUE)" :PRINTN$(2) 

215 CHAR®, 28,9," BLUE}" :PRINT"PUNKTE*;P(2} 
216 CHAR®, 28,11," {BLUE} ":PRINTMID$(T$(2). 2.1 

):":":MID$(T$(2),3.2);”:";MIDS(T$(2).5,.2) 
217? CHAR@. 28,13," { YELLOW)“ :PRINTN$ (3) 

218 CHAR®, 28,15," { YELLOW" :PRINT"PUNKTE" ;P(3 


3 


211 
212 
219 
aa 
214 





24 


€128> 


s111> 


<77> 


<156> 


«1143 
<79> 


<116> 
<57> 


«115? 
<59> 


<128> 
<81> 


«122> 
<63> 


<124> 
657 


<126> 
<87> 


<128> 
<69> 

<246> 
<117> 


<6> 


<114> 


<230>. 


<89> 
<211> 


<83> 
<138> 
<69 


<71> 
<219> 
<149> 


<239> 
<33> 


<34> 


219 CHAR®. 28,17, "t YELLOM " :PRINTMID${T$ (3), 2 

.1}5":"sMID${T$(3).3.23:":2";MIDEtT$(3),5.2) 

228 CHAR, 28,19," {RED} " :PRINTN$ (4) 

221 CHAR®,28,. 21," { REDY“ :PRINT"PUNKTE" :;P(4) 

222 CHAR®, 2B, 23, "{RED}" :PRINTMID$(T$ (A) ,2,1) 

"3" ;MID$(T$ (4) ,3, 2); "3 ";MIDSCT$(4) 5.2): 

223 GOSUB337 

224 S=1:POKE65286,27:PA=8:PN=1 

225 IFS=5THENS=1 

226 TI$=T$(5) r 

227 IFPP(5)=18THENS=S+1:G0OT0225 

228 IFS=1THENPRINT" {GREEN} ” 

229 IFS=2THENPRINT" { BLUF}" 

238 IFS=-3THENPRINT" { YELLOW?" 

231 IFS=4THENPRINT" {RED} " 

232 G0OT0246 _ 

233 CHAR®.28.6*S-4, "":PRINTMID$S (TI$,2,.1) ;":" 

:MID$(TI$,3,2):"2":MIDS(TI$ 5.2); 

234 J=J0OY(1) :GETK$ = 

235 IFJ=10ORJ=5ORK$-"A"ORK$="Z"THENFOKE239,8: 

GOT0238 

236 IFJ=1290RK$=-" {SPACE} " THENPOKE239, 8:G0T02 

58 : 

237 GOT0233 ! 

238 POKE239,@: IFPN=1ANDI=1ORPN=1ANDK$="A"ORP 

N=9ANDI=SORPN=9ANDK$=""Z'"THEN233 

239 CHAR®,1, PN*2+1,." {SPACE} :CHARY, @,PN*2+2, 

"X SPACE2}” 

248 CHARG,24,PN*2+1. "1 SPACE} " :CHARQ, 24. PN*2+ 

BUS TERGER]" PIESETERENSRSTIENPRSENST BUBEN 

-PN+1 4 ) 

241 ONSGOTO242, 243, 244,245 

242 PRINT" GREEN} " :GOTO246 

243 PRINT" { BLUE} " :GOTO246 

244 PRINT‘ { YELLOW} " :GOTO246 

245 PRINT" { RED} " ;GOTO246 

246 CHAR®,1,PN*2+1,",":CHAR®,@, PN*2+2, "14" 

247 CHAR®, 24, PN*2+1,'"$":CHARO,, 24, PN*2+2, "%:" 

248 IFMID$(N$(5),1,8)="COMPUTER"THEN298 

249 GOT0233 

256 POKE239,6: IFPN=PATHEN233 

251 PA=PN:VOL8:G0SUB355 

252 CHAR2,28.6*S-1,"":PRINTMID$(TI$,2,1);":" 

;MID$(TI$,3,2);":";MID$(TI$,5,2)3; 

253 J=JOYi1}:GETK$ 

254 IFJ=30RJ=F7ORK$=", "ORK$=" , "THENPOKE239,4: 

G0T0257 

255 IF3=12BORK$=-" SPACE} "THENPOKE239. 8:60T02 
5 

256 G0T0252 

257 IFJ=3ORK$=" , "THENSOLPNI=SOCPNI-1:ELSESOL 

PN)=SQ(PN)+1 H : 

258 IFSQ (PN) =DTHENSQ(PNI=6 

259 IFSQ(PN)=7THENSQIPN)«l 

260 I=PN:.GOSUB343 :0NSGOTO0261 , 262,263, 264 

261 PRINT" {GREEN} " :G0T0252 

262 PRINT" ( BLUE} " :GOTO252 

263 PRINT" ( YELLOW} :G0T0252 

264 PRINT" RED} " :GOTO252 ; 

265 VOL8:G0OSUB355: T$ 15) =TI$:3=0 

266 X=3196:FORI=1T04:FA(I)=8:NEXTI 

267 FORI=1T04 j 

268 IFPEEK(X)< >38THEN276 

269 IFPEEK(X+40)=33THEN276 

278 PP(TL}=PP(I)+8.5:FACT)=FACLI) +1: IFPEEK (X+98 

0)=32THEN274 

271 POKEX-1824, 91:POKEX, 41 :POKEX+1 ,32:POKEX- 
1022,91:POKEX+2,42 

272 GOSUB2B4 : POKEX+48, 38: POKEX+41 ,39 : POKEX+4 

2,498:G0SUB351 

273 GOTO27& 

274 POKEX, 32:POKEX+1,32:POKEX+2,32 

275 GOT0272 

276 X=X+5:NEXT 

277 X=X+20: IFX 3916THEN267 

278 FORI-1T094 

279 IFPEEK(X)=38THENPOKEX-1864, 91: POKEX-4AB, 4 
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<6> 
208> 
1447 


<216> 


-<71> 


<44> 
<151> 
<153> 
<49> 
<216> 
<229> 
<226> 
<215> 
<73> 


<130> 
<57> 


<175> 


<113> 
<63> 


<158> 
<54> 


<196 > 
<235> 
«237» 
<241> 
<111> 
<234> 
<96> 
<6> 

<20> 
<75> 
<142> 
<172> 


<1577 
<76> 


<356? 


<25> 
<857 


77 
<149> 
<129> 
<14> 
<229> 
<233> 


‚ <103> 


<226> 
<202> 
<156> 
<181> 
<88> 
<18> 


<2> 
<250> 


<185> 
<124> 
<68> 

<11@> 
<116> 
«75» 

<112> 


1: POKEX-39. 32 :POKEX-1062, 91: POKEX-38 .42 

288 IFPEEK(X}=38THENPOKEX, 92: POKEX+1,32:POKE 
X+2,32:PP(I)=18:WeW+1 : VOLB: SOUNDI, 298, 28:605 
uB412 

284 : IFW=3THEN336 

282 X=X+5:NEXT:GOSUB419:9-$+1: IFS=STHENS-1 
283 GOT0289 

284 IFI=1THENPOKEX-984,53: POKEX-983.53:POKEX 
-982 ,53 

265 IFI=2THENPOKEX-984, 70: POKEX-983, 70: POREX 


982,70 


286 IFI=3THENPOKEX-984, 119: POKEX-983, 119: POk 

EX-982,119 

287 IFI=ATHENPOKEX-984, 58: POKEX-983. 58: POKEX 

-982.50 

288 RETURN 

289 P(1)=P(1)+(18-PP(1)) 

298 CHARO, 34,3," (GREEN) :PRINTP(1) 

291 P(2)=P(2)+(18-PP(2)) 

292 CHAR®. 34,9, "{ BLUE}" :PRINTP(2} 

293 P(3}=P(3)+(18-PP(3)) 

294 CHAR®, 34.15," ( YELLOW " :PRINTP (3) 

295 P(A}=P(4)+(10-PP(4)) 

296 CHAR®,34,21,"{ RED)" :PRINTP (4) 

297 SOTO226 . 

298 X=3196:Y=8:Z=PN:2Z=1 

299 WW=d 

308 IFZZ=10THENZZ=INT(RND(B) *9)+1:WW=1:IFZZ= 

PA OR ZZ=PP (S) THENZZ=19:6070299 

301 IFWW=1THEN316 

362 FORI=1T04 

303 CHAR®, 28,6*S-1, "":PRINTMID$(TI$.2,.1);":" 
:MID$ (T1$,3,2);":”;MIDS(TIS.5.2): 

304 IFPEEK (X)< >38THEN307 

305 IFI=STHEN397 

306 GOT0389 

397 X=X+5:NEXT 

389 X=X+68: ZZ=22+1 :G60T0299 

389 IFZZ=PATHENI97 

318 IFZZ=-PNTHENI18 

311 CHARQ,1.PN*2+1, "(SPACE)" :CHAR®, O,PN*2+2. 
"{SPACE2}" 

312 CHAR®, 24, PN*2+1."{SPAGE)" :CHAR®, 24, PN*2+ 

2, "{SPACE2)“ 

313 IFPN>ZZTHENPN=PN-1 

314 LFPN< 2ZTHENPN=PN+1 

315 CHARO.1,PN*2+1,",":CHARG,B,PN*2+2, "14" 

316 CHÄR®. 24, PN*2+1,"$":CHARG, 24. PNr2+2, "x!" 
317 GOT0318 

318 GOSUB3SS 

319 IFPN=PP(SYTHENV= (3-1) *5:ELSEV=® 

328 Y=Y+1: IFY-6THEN334 

321 SOLPNI=SOLPNI-L 

322 IFSQtPN)=OTHENSQIPN}=6 

323 G0SUB347 

324 ONSGOTO325.326.327.328 

325 PRINT“ { GREEN) " :G0T0329 

326 PRINT" {BLUE} " :G0T0329 

327 PRINT’ { YELLORF" :GOT0329 

328 PRINT" RED)" 

329 CHAR®, 28,6*3-1,"":PRINTMIDS(TI$.2,1);”:" 
:MID$(TI$. 3,2) :":";MID$(TI$,5,2); 

338 . IFPEEK (X+48)-33THEN32@ 

331 IFV=0THEN334 

332 IFPERK ( (X+48) +V)=33THEN334 


333 GOT032® 
334 CHARG.28,6*5—-1. “PRINTMID$(TI$, ara) 
;MID$ (TI$.3,2):":":MID$CTIE.5,2): 


2335 PA=PN:GOTO265 
336 FORI=1T04: IFPP{IY< >198THENP(I)=P(T)+25:NE 
XT:60T0357: SENERT, 6070357 


72 PINK SPACES BRN 522 PINK ){SPACE)"LERN 92 


we Ze Zi mn Zen 


2 BINKYE!® 
338 FORI=1T04 :K=INT(RND(0) *6)+1 
339 IFK-1ORK=2THENMID$ (SP$ (1) „It7-2,33=")15P 
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<5> 


<217> 
<191> 
<239> 
<149> 


<148> 
<75> 
<194> 


<293> 
<175> 
<223> 
<86> 
x254> 
<156> 
<29>. 
<201> 
<68> 
%45> 
<133> 
<207> 
x7> 


<140> 
<176> 
<136> 


2897 
<64> 
<46> 
<158> 
<147? 
<62> 
<96> 
<194> 


<127> 


<75> 
<41> 
<37> 
<166> 
<76> 
<128> 
<165> 
<8> 
<245> 
<176> 
<213> 


:<175> 


<159> 
<83> 
<875 
%213> 


.%2> 


*235> 
<188> 
<211> 
<221> 
<147> 


<249> 
<161> 


<227> 


<148> 
<37> 


PROCTRAMLIE A 


ACE} *" :ELSEMID$ (SP$ (TI ,I*7-2.3="! 9 

348 IPI=93THENMID$(5P$ (9) .I*7-2,393)="t 1" 

341 NEXTJ:SQCI}=INTERND(8) *6)+1:NEXTI 

342 FORI=-1T09:G605JB343 :NEXT : RETURN 

343 CHAR@.2,2*1+2,"" 

344 IFSQ{II<ATHENPRINTHIDS (SP$ (I) ,SQ{I) "7-6, 
29) :GOT034& 

345 PRINTMID$ (SP$(T) .SQLI) *7-6,17-5011))*7); 
;PRINTMID$ (SP$(T}.1, {SO(1)-3)*7) 

346 RETURN 

347 CHARQ,2,2*PN+2,"" 

348 IFSO EN) SATHENERINTRTDECHPRGEN)S SULPN} «7 
-6 , 28) :GOT0350 

349 PRINTMID$(SP$ (PN), SNLPN) *7-6, {7-5Q1PN) ) * 
7); :PRINTMID$(SP$ (PN). 1, (SQ{PNI-3) *7) 

358 RETURN 

351 FORSO=8TO1STEP-2 : VOLSO 

352 FORTD=989T025TEP-75 

353 SOUND1 ,TD,@:NEXTTD, 50 

354 RETURN 

355 POKE239,8:FORSO=-8TOASTEP-0 .5:VOLSO: SOUND 
1.596.1:SOUND1.,683.1:50UND2. 917,1 

356 SOUND2,939,1:NEXT :RETURN 

357 GOSUB431 

358 PRINTCHR$ (8) :POKE65287,8 

359 COLOR4,1:5Y321168,6: SYS21208. 4 
m 1:COLOR4, 1: PRINT" { CLEAR} " : POKE652 
87,136 

361 P$="{ RUSON}"+BU$ (71) +BUS (65),+BUS 177) +BUS 
(69) +BU$ (32) +BU$ (32) 

362 W$="{ RVSON}"+BU$ (79) +BU$ (86) +BU$ (69) +BU$ 
(82) +BU$ (323 +BU$ (32) 

363 P$=-P$rW$ 

364 COLOR1,2 

365 CHAR1,19,8,P$ 

366 PRINT" ( HOME} " ; :FORI=1T012:PRINTCHR$ (27) + 
ST: NERT 

367 FORI=1T03580 :SYSDEC ("5388") :NEXT 

369 PRINT" {HOME} ; :FORI=1T015:PRINTCHR$S (27) + 
"IN,.NEXT 

369 FORI=3TO1STEP-1 

378 FORJ=1TOI 

371 IFP(J} >=P(J+1) THEN3?3 

372 S1=P(J3 :Si$=N$ (I) :PiLII<=P(J+13 :NELII=N$LJ 

+1}: P{J+1)=91:N$(J+1)=51$ 

373 NEXTJ 

374 NEXTI 

375 PRINT OLEAR}" 

376 GOT0483 

377 PRINT"{RVSON DOWN2 SPACEBY" :BU$ (70) :BU$( 

ae 79: »BU$ (65) ;BU$176);: BU$ 32}; BU$ (82); 

$ - 

378 PRINTBU$ (83) :BU$ (85) ;BU$ (76) ;BUS (64) :A=5 
:GOT0499 

379 FORI=1T04:A=A-1 

388 COLOR1.3, (1*2)-1 

381 CHAR1,1,22-(1*3),"" : PRINT" { RUSON}" :BU$(4 
BA) ;BU$ (46) ;BU$ (32); 

382 FORE=1TOLEN (N$(A)): ıX$=NID$ (NS (A) ,E,1) 
383 PRINT" 4 RVSON}" :BUS(ASCIX$)); 

384 NEXTE: PRINTBU${32); 

385 FORE=1TOLEN(PU$ (A) ) :X$=MID${PUSCA),E.1) 
386 PRINTBUSCASC(X$)); 

387 NEXTE: IFI<ATHENFORT=1T0150B : NEXTT :EL5SEGO 
54B448 : FORU=1T088® :NEXTU :G0OSUB448 








388 NEXTI 
389 FORI=1T07@08 :NEXTI : FORI=1T024 :POKE2021, 1 
PRINT" { CLEAR} :NEXTI 


398 FORI=1T04:HS(I+5)=P{1):HS$CI+5)=N$ CT) :NE 
XT 

391 FORI=BTOLSTEP-1 

392 FORJ-1TOI 

393 IFHS{J}%=HS(J+1) THEN395 

394 S1-HS{J):51$=H55 (J} :HS{JI=HSLJI+1) HIST 
=HS$(J+1) :HS(J+1)=91:H3$ (J+1)=51$ 

395 NEXTJ 

396 NEXTI 


<283> 
<1989> 
<56> 
<169> 
<12> 


<1B8> 


<233> 
<233> 
<B2> 


<243> 


<111> 
x237> 
<13> 
<227> 
<77> 
<241> 


<1727> 
<96> 

<184> 
<249> 
x125> 


<199> 
<118> 


<134> 
<139> 
<2> 

<216> 


<111> 
<181> 


<152> 
<1137 
<76> 

<125> 


<24> 

<148> 
<139> 
x150> 
<198? 


<19> 
<26> 
<228> 
667 


<111> 
%2> 


.<182> 


<185> 
<107? 
<216> 


<62> 
g153> 


<i> 


£63> 
<155> 


<98> 


<126> 
<117>5 


<162> 
<161> 





| 
|. 
| 


BE PROSER/ALILIE 


397 FORI=1T05:J$=STR$ (HS(I)):X=LEN{I$} :J$=MI 
DE (J$,2,X) 


398 IFHS{T)<I@THENHI$ (T)="0000"+J$:NEXTI:GOT 
a IFBS(T}< 180THENHI$ (I)="808"+J$:NEXTI:GOT. 
a0u IFHS(LJ<1O0OTRENHIS (1)="00"+J$:NEXTI:GOT 
201 IFHS (I)<1000@THENHI$ (T)="8"+J$:NEXTI:GOT 
282 IFHS(I)< 100008THENHI$ (1)=J$:NEXTI :GOTO24 


493 FORI=1T04:J$=STR$ {P(1)) :X=LEN(J$} : J$=MID 
$(J$,2,X) E 
484 IFP{I)CIATHENPUSLTI="0000"+J$:NEXTI:GOTO 


arg 

405 IFP(I)<18@THENPU$ (I}="B00"+J$ :NEXTI :GOTO 
IFP(T)<1800THENPUS (I)="08"+J$:NEXTI:GOTO 

IFP(I)<1O008THENPUS (I) ="8"+J$ :NEXTI:GOTO 


IFP(T)< 180B80THENPU$ {T)=J$ : NEXTI :G0OT0377 
FORI»1T04 :D$="{ SPACE" 

IFLEN (N$ (I) J)C9THENN$ (T)=N$ (I) +D$:GOTO41O 
NEXTI :GOT0379 

FORKK=1T04 

IFPP (KK)=12THEN415 

PIKK}=P (KK) +19 

NEXTKK 

P{5}=P(5)+5 

RETURN Z 

GCOTO23 

FORI=1T04 


«2537 


ENDE DES LISTINGS 


428 IFFA(I)>3THENP (S)»P(S)+FALI}/2-1 <146> 
421 NEXTI:RETURN <16%> 
422 F1=-9:L1=3:F2=3:L2=3:2FeB: ZL=7 <285> 
423 REM <55> 
424 POKE653287, PEEK(65287)0R16 422 
425 POKE653@2,F1-1:I=L1*16:POKE65392 , PEEK (65 

982)+I <236> 
426 PORE65383,F2-1:1=L2*16 :POKE65383, PEEK (65 

383) +1 ä <72> 
-427 I=ZL*16 <147> 
428 FORD=OTO2 : FORT=1TO25 : POKE2928+ (D*AB) +T,Z 
F+7:POKE2928+ (D*4@) +T, PEEK(2928+{D*48)+T)+1 <54> 
429 NEXTT,D:T=®:D=-9:66=8:F1=9:F2=®:L1=8:12=8 
ıZF=0:21=8:1=0 56? 
438 RETURN <61> 
431 5=5 <6> 
432 FORH-8TO®STEP-.1:VOLH <245> 
433 A=At4 <198> 
434 FORG=1828T09885TEP-A <66> 
435 SOUND1,6,1:NEXTG <183> 
436 NEXTH: RETURN <172?3 
440 VOLB:RESTORE441 <117> 
441 DATA1,704,3,2,.1016,2,1,739,1,1.770,2,2,7 
04,2,1,739,2,2,685,2.1,784,2,2,739,2 <136> 
442 DATA1.770,2,2,704,2,1,739,1,2,5493,2.1.68 
5,1,1,704,2,2,516,2.1.0834,2,2,784.2 <168> 
443 DATA1,810,2,2,770,2,1.784,2,2.685,2,1.77 
0.2,2,704,2,1,739,2,2,643,4 : <227> 
444 DATA1,779,1,1,704,1,2.810,4,1,596,4 <43> 
445 DATA,0,®8 f 2225? 
446 READA,B,C: IFA=OTHENRETURN : ELSESOUNDA ,B;C 
*12:G0T0446 <73> 





Basıh«e 


—— wechsle dich! 








* BErHEESTITe) 


C-16 LISTING + CHECKSUMMEN (0C V1,0) 


120 REM 
11% REM *#* : A 
128 REM *t* BASICMON ar 
138 REM “% m m m m a AH DE ER A ur. 
1464 REM ** x" 
150 REM ** BERNHARD KLINGER BR 
168 REM ** i Ei 
17@ REM *# GRABENGUERTEL 88 ick 
180 REM ** KR 
198 REM ++ A-B818 GRAZ Zum 
200 REM *%* ne 
218 REM Lau E22 2 2 2 0a 2 no Zn Een nn zz 222 
220: 

230 : 

248 FOR I=1632 TO 1719: READ A$: POKEI,DEC(A 
$%); NEXT 

20 - 

260 SYS 1632 


27@ PRINT “{DOWN2 SPACE) BASICMON{ SPAGEHISTIS 
PACEINUN ( SPACE} INSTALLIERT" 


280 PRINT "{SPACE DOWN} ->{ SPACE}REAKTIVIERUN 


<181> 
«737 

<118> 
<154> 
<103> 
<46> 

<123> 
<175> 
<143> 


<136) 


<163> 
<211> 
<22> 
<32> 


<94> 
<52> 
<189> 


<127> 


Dieses kurze Utility ist für alle 
Tüftler unter den CGI& 
Programmierem gedacht. Es 
ermöglicht nämlich, die Be- 
fehle das TEDMON vom Basic 
aus zu verwenden. Das lästige 
Hin- und Herschalten mit 
’MONITOR" und "X" gehört 


fordertlich. 

Auch hier ist die Eingabe sehr 
einfach, da es sich um ein 
Basic-Programm handelt, das 
den MC-Code in.den Speicher 
schreibt. Gespeichert, geladen 
und gestartet wird es wie ein 
normales Basic-Programm. 


somit der Vergangenheit an. 
Nach dem Start ist das Pro- 
gramm automatisch aktiv. 
Nach einem RESET ist die Re- 
aktivierung mit "SY51632” 
möglich. 

Neben dem Basic-Loader dru- 
cken wir auch das Assembler- 
Listing ab. Zum. Programmtlauf 
ist dieses aber nicht er- 


Datasette 
Besonderheiten: N 


ror 





Programmname: Basicmon 
Computertyp: 

C16/116/Plus/4 
Lauffähig auf: Floppy und 


ützli- 


ches Utility für Programmie- 





6{ SPACE}NACH { SPACE} ' RUN-STOP-RESET' " 5 
290 PRINT "{SPACESYMITISPACE RVSON} Ki SPACE} + 
{ SPACEYK { SPACH}RETURN{ SPACE) >{ RVSOFF} " 

306 PRINT" {DOWN SPACE}->( SPACE}REAKTLVIERUNG 
1 SPACEINACH SPACE} 'RESET'" 

318 PRINT "{SPACE4}MIT{SPACE RVSON}SYS{ SPACE 
+1632" 

320 PRINT "(SPACE DOWN} BENUTZTE{ SPACE} VEKTOR 
EN{SPACH,:" ° 

33@ PRINT "{SPACE DOWN SPACE} >{ SPACE}$030215 
PACE} /{ SPACE} $B303" 

349 N "SPACE2} >{SPACE}$83241 SPACE} /{ SPA 
CE} $9325" 

350 PRINT "{DOWN SPACEYES{ SPACE}WERDEN{ SPACE 
}KEINE{ SPACE} FREIEN { SPACE} SPEICHER-" 

368. PRINT "{ SPACE} STELLEN {SPACE} BENUTZT" 
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<84> 
<105> 
<37> 
<30> 
<251> 
<100> 
<188> 


"472 
<1> 


=1:S: BEIENESZIEIGTE -Vertriebsgesellsc el arzlaanlein! 


va 
stariorce NOS go 


19,90 


rear 


29,90 Kikstart 


Champ. Wrestling 
. 23,90 


Alle Preise sind Ladenpreise. Bei Versand per Nachnahme berechnen wir Porto 5,90 DM, bei Vorkasse mit 
Scheck DM. Zum Bestellen einfach Een, und abschicken! 


Power-Hit-Bestellung c-16 


D] Joystick Adapter >» 

OD] Four great Games 

DACE. 

Di Adıoss (deutsch) 
‚Alrwatt 


D 
DO Allens UK 
D Attantis 
N Auf, Wiedersehen Monty 
EI Autiga 
EI) World Series Baseball 
I Batite 
O Balllastar 
O Börks 
D Berks Trilogy 
E} BMX Recar 
DO Bomb Jack 
DO Bounder/Planstseasch 
OD Bubble Trouble 
D Ötsssios HI 
DO C-18 Compllation 
DI Datei (deutsch) 
TI Datenbank 
LD Deaih Haca 19 
OD Defence 16 
O Damsliton 
OÖ Dirty Den 
DO Dizastarblaster 
O Dork’a Dilemma 
DO Elite Gollecilon Doppelpack i 
D European Games 
D Findere Kospers ’ 
D Fingers Matone 
DO Five Star Games I 
D Five Star Qamoe Il 
D Five Star Games Ill 
U Foctballer of the Yoar 
DO Football Managar 
OD Formula One 
EI Frank Bruno’s Boxing 
E EA enig 
Future ht 
Ei Future Shock 
DO Grandmasler Chess 
G Grealest Hits 
DO Gulwing Faloon 
D Gun Law 
OD Gwnn 
D Hoktik 
U] Horcules 


EG Home Office 

I Intemationa) Karate 
GO Into ihs Daap 

I Jet Brix 

O Jet Set Willy I 

OD Kikatart ” 


{1 Les Vegas Video Poker 
U Lsapin” Laula 

DI] Masterchess 

El Matrix and Laserzona 
D Magabolts 

D Molecuie Man 

DO] Monkey Magic 

EI Kir. Puhiverse 

Ei Ninta Master 

7 Oblido 

DO Omnibus 1 

D Omnibus 2 

Di One Man and his Droid 
DO Pin Polnt 

D P.O.D, 

U Pogo Patls 

ED Powerball 

E} Power Pack I 

OD) Project Nova 

D Prospestor Pete 

©] Assous from Zylon 
ED Röckman 

DO Saböteur 

EOI Scooby Doo 

D Sky Hawk 

D Stippery Sld 

DO Snooker R Pooh 

EI Spead King 

DO Spore 

oO Salt 

I Squirm 

oJ Star Evanie 

U Starforca Nova 

O Steve Davis Snooker 
U $torm 


O Superhlte 
ar zen 


oO Term Nova 

D Text (deutsch) 

D Thal Boxing 

D The Magician’s Cures 

O The Wizzard and Prinzess 
Ol Tomb of Tarrabashı 


35,90 
14,80 

9,90 
24,30 
Fe 
19,80 
19,99 

9,30 
29,90 

9,90 


G Trigie Oscker 1 
ED Tıiple Decker 2 
GO Turbo-Taps 

O Tutti Fruii 

Di Tycoon Tex 

DI Utiliry (deutsch) 
DO Video Meanies 
EI Vokabal (dautsch) 
EI Winier Events 
U Winter Olympics 
I Xargon Wars 

DI Xcellor 8 

Op 


Für Plus 4 {erweiterter C-16) 
DAGEN 


TI Wister Olymplca 


"Tripla Decker 5 mil Alian At- 


Die Superpacks zu 
Superpreisen: 


Triple-Dacker 1 mit Tarık At- 
tack, Invasion Force, Winnie 
the Witch 


Tripla-Dscker 2 mit Knock 
Out, Monkey Magic, 
3-D-Quasars 

Triple-Decker 3 mit Gala- 


xions, Mission Mars, Quick 
Draw 


Tripla-Dacker 4 mit Maieo- 
rids, Suicide Run, Space 
Freak 


tack, Robin to Ihe Rescue, 
Cruncher 


Erste 


T.$. Datensysteme, Denissir. 45, 8500 Nürnberg 80 


Absender 


Name. Vorname 


Straße, Hausnummer 


PLZ, Ort 


Unterschrift 
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0) 
| 





___ IRROGIRTNKIFIE 


378 
380 
398 
488 
4108 
420 
438 
440 
458 
450 
470 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


480 DATA 
ENDE DES LISTINGS 


10906 : 


1810 : 
1928 : 


1830 
1040 
1850 
1060 
1079 
1089 
1098 
1189 
1118 
1128 
1138 
1148 
1158 


DL DE TB TEE Pur Sue Pe ges 


“. 08 02 an em 


ı160 : 


1170 
1188 
1198 
1288 
1218 
1228 


Drau Per Per Pe Per 


1238 


1248 :; 


1250 


1278 

1280 : 
1290 : 
1306 : 
1318 x 
1320 : 


1334 
1348 
1358 : 
1368 : 


1260 : 


1378 : 
1388 : 


1398 :- 


1408 : 
1410 : 


1420 


1438 : 
1440 ; 
1458 : 
1468 : 
1478 : 
1488 : 


1490 : 
15098 
1518 
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„0. 
IE Tu 77 


:.RET 


A9.A2,.A0,06,6D.02,03,BC 
83,03,60,486,8A,48,BA,BD 
83,01,C9,94,F0,96.68.,AR 
68,4C,4B,EC,BD,04,01,C9 
F4,0@,F3,68,69,68,68,R6 
F4,A9,08,.9D,88,02,A9,0D 
29,4B,EC,A9,80,85,9A,A9 
FF,85,3A,A2,FF.A®,81,4C 
19,87,19,C0.,05.9A,A9,6B 
A0,06,8D,24,83,8C,25,03 
4C,98,F4,00,80,00.00,08 


N EI = 2.2. 22 202 5 0202 ©3270 20222070 2.222707 
um m 


BASICMON 
SOURCE CODE 


= m 


I DE Tzc Te Pc Per 


SE EEE mm IE mE u: SE me Dr TE u en re 


ERST TEE LEITETE En; 
“r*% INITIALISIERUNG ##*% 


a EZ a a Zn 2 SZ 2 2 2 


* 


mm 


; WARMSTART-VEKTOR AUF NEUE 
: ROUTINE UMBIEGEN 


.„INIT LDA #8$< .WSTA; LOW-BYTE 
LDY #$>.WSTA; HIGH-BYTE 
STA $8302 
STY 50303 
RTS 


Pan u 5 5 5 2 5 2 2 2.5 2 2 2.2 22 2 2 202 2 2 2. 20200 


[2 
; *&* NEUE BSOUT ROUTINE Wt* 
LISTET EZ 5 


; AKKU UND X-REG SICHERN 


.BSOUT PHA 
TXA 
PHA 


VEBERPRUEFEN OB RUECKSPRUNG= 
ADRESSE $F494 ( ROUTINE 

ZUM AUSGEBEN DES "?" IM 
MONITOR } LAUTET . 


TSX 
LDA 
CMP #$94; 
BEQ $.WEIT 
PLA H 
TAX ; AKKU VOM 
PLA + STACK HOLEN 
JMP $ECAB; ZURUECK 

LDA 
CMP 
BNE 


X-REG. + 


‚WEIT 
#$F4 3 
$.RET 


:; RUECKSPRUNGADRESSE, AKKU U. 
ı: X-REG. VOM STACK HOLEN 


<173> 
<145> 
<19> 
<34> 
<11> 
x286> 
<1> 
<168> 
<258> 
<222> 
<98> 
<122> 


$0103,X; LOW-BYTE DER 
RUECKSPRUNGAD. 


$0184,X;HIGH-BYTE DER 
RUECKSPRUNGAD . 


1529 


1530 : 
15480 : 


1558 


1568 : 
1578 : 


1588 :; 


1598 : 


‚1698 


1618 ; 
1628 : 
1638 : 
1640 : 
1650 : 


1668 


1670 : 


1688 


1699 : 


1788 


1710 : 


1728 : 
1730 : 


1748 
1750 
1768 
1770 


‚1788 


1798 
1828 
1810 
1820 
1830 
1840 
1858 
1860 
1870 
1880 
1899 
1998 
1910 
1928 
1930 
1949 
1959 
1960 
1978 
1980 
1998 
2960 
2019 


| 2822 


2838 
2049 
2050 


DS Te u TE PETE EEE Pau Tue SEE er TEE Tuer zer 


“m Be 4m dr de dr He En me de ve 


» 


IE TEE Pe EIBE Tuer 7 


. 


wen. nr 


nen 


a 


PLA 
PLA 
PLA 
PLA 


'ENDE DER EINGABEZEILE KENN= 
ZEICHEN 


LDX $F4; LAENGE DER EIN“ 
LDA #$00; GABEZEILE 
STA $0200,X 


’RETURN' AUSGEBEN, DAMIT DIE 
NAECHSTE ZEICHENAUSGABE 
NICHT HINTER DEM ZU BEARBEIT=- 
ENDEN BEFEHL ERFOLGT 


LDA #$0D 
JSR $ECAB; BSQUT 


BASIC-MODUS KENNZEICHNEN, UM 


AUSGABE DER DOS-MELDUNGEN 


{ 2.B. 1/0 ERROR #4 ) ZU 


UNTERDRUECKEN 
LDA. #580 
STA $9A 
LDA #$FF ; DIREKT-MOD. FUER 
STA $3A ; FEHLERMELDUNGEN 
; KENNZEICHEN 


SPRUNG IN DEN INTERPRETER 


LDX #$FF; AD, DES EINGABF=- 
LDY #$01; PUFFERS -i IN X/Y 
JMP 38719 


BEER RR Ra 


““* NEUE WARMSTARTROUTINE **#* 
WERE a a a a 


WIRD IMMER NACH DER AUSGABE 
VON 'READY.* AUFGERUFEN 


MONITOR-MODUS KENNZEICHNEN 
BZW. DOS-MELDUNGEN ERLAUBEN 


.WSTA LDA #$C9 


® 
F 


E 


2860 : 


2978 
2089 


Eee 7 ur Faser Tr Pr Pr 


2298 : 


2108 


2118 : 


21282 
2138 
2148 


READY. 


STA $9A 


BSOUT-VEKTOR AUF NEUE ROUTINE 
UMBIEGEN 


LDA #$< .BSOUT 
LDY #$>.BSOUT 
STA $0324 
STY $0325 

SPRUNG IN DEN MONITOR 


JMP $F498 
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© Die Kernelroutine SAVE u. 


die Übergabe von Strings 


Das Programm 9 ermöglicht 
es, bestimmte Bereiche des 
Speichers auf Disk abzuspei- 
chern. Zunächst werden, wie 
im letzten Programm, mit 
SETLFS logische Fitenummer 
und Geräteadresse festgelegt. 
Für Datasetienbenutzer muß 
die 8 in Zeile 1022 natürlich 
durch eine 1 ersetzt werden. 
Dann wird mit der Routine 
FRESTR ab $9c48 ein String 
an unser Programm überge- 
ben. Nach dem Aufrufsteht im 
Akku ‚die Länge des Strings 
und in X und Y die Adresse, ab 
der der String im ASCH-Code 
im Speicher steht. Jetzt 
könnten wir eigentlich schon 
SETNAM aufrufen, aber vorher 
prüfen wir noch, ob der String 
entweder leer (2.1032) oder 
über 16 Zeichen lang (2.1034- 
1036) ist. In diesem Fall wird 
nämlich zu ERROR.gesprun- 


. gen und dort mit ILLQUA ein 


"ILLEGAL QUANTITY ERROR” 
ausgegeben. Ab Zeile 1042 
folgt dann die Vorbereiturig für 
die Routine SAVE ab $ifd8. 
Sie erwartet die Endadresse in 
zwei beliebig Aufeianderfol- 
genden Adressen der Zero- 
page, deren niedrigere im Akku 
steht. Wir iesen daher im CO- 
MADR eine Adresse und 
schreiben sie nach $d0/$ d1. 
Das ist die Anfangsadresse. 


Ct16 - 5A 5/89 


Diesmal wollen wir uns besonders 
mit dem Kernel beschäftigen, von 
dem wir schon einige Routinen kennen. Wir werden aber auch ein Programm zum 

Multiplizieren von Zahlen schreiben und den Zeichensatz verändern. 





Dann lesen wir die Endadresse 
ünd schreiben das Low-Byte 
nach X und das High-Byte 
nach Y (das Low-Byte einer mit 
COMADR übergegbenen 
Adresse steht in Y und in $14, 
das High-Byte im Akku und in 
$ 15). Zuletzt schreiben wir $dO 
in den Akku, also die Adresse, 
ab der die Anfangsadresse 
steht. Das Programm wird mit 
SYS 1630 
fangsadr., Endadr gestartet. 
Achtung! Nach der Adresse 
1630 steht kein Kommal 


O OPEN, CLOSE, CHKOUT, 
CHKIN und CLRCHN 





Programm 10 formatiert eine 
Diskette und gibt anschließend 
die Fehler- bzw. OK-Meldung 


der Floppy auf dem Bildschirm 


aus. Dazu wird zuerst der 
Kommandokanal der Floppy 
geöffnet. Die Parameter wer- 
den wie üblich mit SETLFS und 
SETNAM übergeben: Die Se- 
kundäradresse 15 (2.1032) 
spricht den Kommandokanal 
der Fioppy an, ein Name wird 
nicht übergeben (2.1038: 
Länge des Namens=0). Dann 
wird mit OPEN ab $ ifcO die Da- 
tei geöffnet, Um jetzt den 
Kommandostring an die Floppy 
zu senden, müssen wir vorher 
die eben geöffnete Datei als ak- 
tuellen Ausgabekanal definie- 
ren, d.h alle Ausgaben sollen 


"Name", . An-: 


an die Floppy geschickt wer- 
den. Das geschieht mit der 
Routine CHKOUT. Wir jaden 
einfach die logische Datei- 
nummer, die wir auch in Zeile 
1028 verwendet haben, nach X 
und rufen CHKOUT auf. Von 
jetzt an werden alle Ausgaben 
zur Floppy gesandt, also auch 
der Siring in Zeile 1054, der mit 
TEXOUT ausgegeben wird: Er 
bewirkt, daß die Diskette in der 
Floppy unter dem Name 
TESTDISK und dem ID "TD” 
tormartiert wird. Um die Aus- 
gabe wieder auf den Bildschirm 
zu leiten, rufen wir CLRCHN 
auf. Diese Routine braucht 
keine Parameter und definiert 
den Bildschirm als Ausgabe- 
kanal und die Tastatur als Ein- 
gabekanal. Um jetzt von der 
Fioppy die Meldung zu emp- 
fangen, definieren wir sie mit 
CHKIN als Eingabekanal. 
CHKIN ist das Gegenteil von 
CHKOUT: Ab jetzt werden Ein- 
gaben mit GETIN odar CHRIN 
von der Floppy gelesen. In der 
Schleife von Zeile 1068-1074 
lesen wir ein Zeichen nach 
dem anderen von der Floppy 
und geben es auf dem 
Bildschirm aus, bis das Zei- 
chen ein RETURN-CGode (13) 
ist. Dann setzen wir mit 
CLRCHN wieder die Tastatur 
als Eingabekanal ein und 
schließen zum Schluß die Da- 
tei mit der Routine CLOSE. 
Dazu laden wir die logische Da- 


er m 0) 


KURS HEN 












teinummer in den Akku und ru- 
ten CLOSE {$ffc9) auf. Bavor 
wir das Programm starten, 
sollten wir uns vergewissern, 
daß die Diskette im Laufwerk 
leer ist oder gelöscht werden 
kann, denn das Programm 
löscht alle Daten unwieder- 
bringlich! 


OKurzbeschreibung aller 


"Kernel-Routinen 


Das Kernel enthält noch viele 
andere Routinen, die jedoch 
meist saltener gebraucht wer- 
den. Weil der Rahmen des 
Kurses weit gesprengt würde, 
wollten wir alle Routinen mit 
Beispielprogrammen bespre- 
chen, so daß hier alle Kernel- 
routinen mit einer Kurzbe- 
schreibung zusammengestellt 
sind. 


CINT ($ ff81): Initialisiere Tasta- 
tur und Editor 

Übergaben:- 
Rückmeldungen:- 
Vorarbeiten:- 

Beeinflußte Register: A,X,Y 
Diese Routine initialisiert die 
Tastatur und den BASIC- 
Editor. 


(OINIT ($ ff84}: Initialisiere VO 
Bausteine und TED 
Übergaben:- 
Rückmeldungen:- 
Beeinftußte "Register: A,X,Y 
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BE VS 


Der Datasettenport, der serielle 
Port, die R5232-Schnittstelle 
und der IEC-Port {falls vorhan- 
den) worden initialisiert und der 
TED mit den Standardwerten 
beschrieben. 


RAMTAS (8487): Initialisiere 
das RAM 

Übergaben:- 
Rückmeldungen: 
Vorarbeiten:- 

Beeinflußte Register: A,X,Y 
Der Bereich $0000-$ 0800 wird 
gelöscht, die Zeiger zurückge- 
setzt und die Funktionstasten 
programmiert. Die Routine 
kann nicht ohne weiteres auf- 
gerufen werden, da der Com- 
puter nach dem Löschen der 
Zeropage abstürzt. 


RESTOR ($ fißa): Vektoren von 
$ 031230331 korrigieren 
Übergaben:- 
Rückmeldungen:- 
Vorarbeiten:- 

Beeinflußte Register: A,X,Y 
Diese Routine stelt die 
Betriebssystem-Vektoren 
wieder auf die Original- 
Routinen ins ROM. 


VECTOR ($t8d): Vektoren ko- 
pieren oder ändern e 
Übergaben: Carry = 0: Vekto- 
ran ändern - Garry = 1: Vekto- 
ren kopieren 

X,Y: Adresse der neuen Vekto- 
ren 

Rückmeldungen:- 

Beeinflußte Register: A,X,Y 
Bei Carry = 1 werden die 
Betriebssystem-Vektoren 

($ 0312-$ 0331) an die Adresse 
inX und Y zum Verändern ko- 
piert. Bei Gary = O werden die 
Vektoren ab der Adresse in X 
und Y nach 3031230331 
kopiert. 


SETMSG ($ff90): Systermmel- 
dungen sperren/zulassen 
Übergaben: Akku = 0: Feh- 
lermeldungen ein, Steuermet- 
dungen ein 

Akku 64: Fehlermaldungen 
aus, Steuermeldungen ein 
Akku 128: Fehlermeldungen 
ein, Steuermeldungen aus 
Akku 192: Fehlermeldungen 
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aus, Steuermaldungen aus 
Rückmeldungen:- 
Vorarbeiten:- 

Beeinflußte Register: A 

Diese Routine steuert die Aus- 
gabe von Systemmeldungen 
(wie "Found..") 

und Fehlermeldungen. 


SECOND ($ff93); Sekundär- 
adresse übergeben nach LI. 
STEN 

Übergabe: A = Sekundär- 
adresse, ODER-verknüpft mit 
96 

Rückmeldung: Carry gibt an, 
ob Operation erfolgreich 
(C = 1:nein) 

Vorarbeiten: LISTEN 
Beeinflußte Register: A 

Eins Sekundäradresse wird an 
ein mit LISTEN aktiviertes Ge- 
rät übergeben, 


TKSA ($ff96): Sekundär- 
adresse übergeben nach TALK 
Übergabe:A Sekundär- 
adresse, ODER-verknüpft mit 
96 


* 


Rückmeldungen: Carry gibt an, 
ob Operation erfolgreich 
{© = 1:nein) 


Vorarbeiten: TALK 
Beeintlußte Register: A 

Eine Sekundäradresse wirdan 
ein mit TALK aktiviertes Gerät 
übergeben. 


MEMTOP ($ 1199): oberes Spei- 
cherende setzen oder lesen 
Übergabe: 

Carıy = 0: seizen 

Garıy = 1: lesen 
bei&=0:X,Y: neues Speicher- 
ende 

Rückmeldungen bei C=1:X,Y: 
oberes Speicharende 
Vorarbeiten:- 

Beeinflußte Register: X,Y 

Bei gesetztem C.,-Flag wird die 
obere Grenze des BASIC- 
Speichers nach X,Y geschrie- 
ben, bei gelöschtem C-Flag die 
obere Grenze als die Adresse 
in X und Y definiert. 


MEMBOT ($tf9c); unteres 
Speicherende setzen oder le- 
sen entspricht MEMTOP, be- 
zieht sich jedoch auf unteres 
Speicherende. 


SCNKEY: ($1f9f): Tastatur ab- 
fragen 

Übergaben:- 
Rückmeldungen:- 
Vorarbeiten:- 

Beeinflußte Register: A,X,Y 
SCNKEXY fragt dio Tastatur ab 
und schreibt bei gedrückter 
Taste deren ASCI-Wert in den 
Tastaturpuffer an 1319. 


SETTMO ($ ffa2): Timeout-Flag 
für den IEC-Bus setzen 
Übergabe: Akku Bit 7=0: Tr 
meout wirksam = Bit 7= 1: Ti- 
meout unwirksam - 
Rückmeldungen:- 
Vorarbeiten:;- 

Beeinflußte Register:- 

Bei angeschlossener IEC- 
Bus-Karte setzt oder löscht 
diese Routine das Timeout- 
Fiag. Bei gesetztem Timeout- 
Flag wartet der Computer 64 
ms lang, ob sich am IEC-Bus 
ein Gerät meldet. Ansonsten. 
erkennt er einen Fehler. 


ACPTR ($ ffa5): Daten von Bus 
lesen 

Übergabe:- 

Rückmeldungen: Akku: amp- 
tangenes Byte, Fehler; s. RE- 
ADSF 

Vorarbeiten: TALK, TKSA 
Beseinflußte Register: A,X 
ACPTR lest Daten vom seriel- 
len Bus, z.B. von dar Floppy. 
Das empfangene Byte steht 
dann im Akku. Vorher muß die 


Datenübertragung. mit TALK 


und TSKA eingeleitet werden. 


GIOUT & tfaß): Daten über den 
Bus ausgeben 

Übergabe: Akku: zu senden- 
des Byte 
Rückmeldungen: 
READST 
Beeinflußte Registar:- 

GIOUT gibt das im Akku ste- 
hende Byte über den Bus aus. 


Fehler: s. 


Vorher muß die Datenübertra-: 


gung mit LISTEN und, falls 
eine Sekundäradresse ge- 
braucht wird, mit SECOND 
eingeleitet werden. 


UNTLK ($ Hab): TALK- 
Datenübertragung beenden 
Übergabe:- £ 


Rückmeldungen: Fehler: s. 
READST 

Vorarbeiten:- 

Beeinflußte Register: A 

Die Datenübertragung, mit 
TALK eingeleitet, wird beendet, 


UNLSN ($tfae): LISTEN- 
Datenübertragung beenden 
wie UMTKL, bezieht sich je- 
doch auf LISTEN. 


LISTEN ($ffbt): Gerät am Bus 
für Datenempfang vorbereiten 
Übergaben: A: Gerätenummer 
am Bus 

Rückmeldungen: Fehler: Ss. 
READST 

Vorarbeiten:- 

Beeinflußte Register: A 

Das Gerät, dessen Nummer im 
Akku steht, wird auf den Daten- 
empfang vorbereitet. 


TALK {$ffb4): Gerät am Bus 
zum Datensenden vorbereiten 
Übergaben:: A: Gerätenummer 
am Bus 

Rückmeldungen: Fehler: s. 
READBST 

Vorarbeiten:- 

Beeinflußte Register: A 

Das Gerät, dessen Nummer im 
Akku steht, wird auf das Sen- 
den von Daten vorbereitet. 


READST &ffb7): VO-Status le- 
sen 

Ubargaben-- 
Rückmeldungen: A: /O-Status 


Vorbereitung:- 

Beeinflußte Register: A 

Diese Routine legt nach einer 
YO-Operation bei einem Fehler 
einen Statuscode im Akku ab. 
Normalerweise wird sie auto- 
matisch nach jeder * V/O- 
Operation aufgerufen. Das 
Carry-Flag gibt an, ob ein Feh- 
far vorhanden war. Jedes Bit 
des Statusbytes zeigt einen 
speziellen Fehler bei der Da- 
tenübertragung an. Die Bits 
des Statuscodes bedeuten im 
einzelnen: 

Bit 0: Gerät am Bus (Floppy, 
Drucker...) bestätigt Daten- 
ompfang nicht. 

Bit 1: Gerät am Bus sendet 


C16 » SA 5/89 





keine Daten 

Bit 2: Bei Kassettonoperation: 
kurzer Satz 

Bit 3: Bei Kassettenoperation: 
langer Satz 

Bit 4: Bei Kassettenoperation: 
nicht korrigierbarer Lesefehler 
Bit 5: Bei Kasssttenoperation: 
Prüfsummenfehter (d.h. Daten- 
fehler} 

Bit 6; Bei Diskettenoperation: 

Dateiende (EOF » end of file) 
Bit 7: Bei Kassettenopeartion: 
Bandende 

Bei Gerät am Bus: Garät nicht 
vorhanden (DEVICE NOT 
PRESENT) , 


SETLFS ($ffba): Setze Datei- 
parameter 

Übergaben: A,‚X, Y 
Rückmaldungen:- 
Vorarbeiten:- 

Beeintlußte Register:- 

Die Routine legt für den Daten- 
verkehr die logische Adresse 
(im Akku), die Gerätenummer 
{in X) und die Sekundäradresse 
(in Y) fest. Soll keine Sekundär- 
adresse festgelogt werden, ist 
Y=255. 


SETNAM (@ find): Dateinamen 
festlegen 

Übergaben: A,X,Y, Dateiname 
ab beliebiger Adresse im Spei- 
cher Rückmeldungen:- 
Vorarbeiten:- 

Beeinflußte Registar:- 
SETNAM legt einen Dateina- 
men für den Datenverkehr fest. 
Dabei muß der Dateiname im 
RAM ab der Adresse stehen, 
die man in X {Low Byte) und Y 
(High-Byte) legt. Die Länge des 
Namens muß im Akku stehen. 


OPEN ($ ffc0): öffne Datei 
Übergaben:- 

Rückmeldungen: 5. READST 
Vorarbeiten: SETLFS, ‚SET- 
NAM 

Beeinflußte Register: A,X,Y 
Die logische Datei, die. mit 
SETLFS und deren Name mit 
SETNAM definiert wurde, wird 
geöffnet. . Entspricht dem 
BASIC-Befehl OPEN. 

CLOSE ($ ffc3): Schließe Datei 
Übergaben: A, Carry 
Rückmeldungen: s. READST 
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Vorarbeiten:- 

Beeinflußte Register: A,X,Y 
Die mit OPEN geöffnete Datei 
mit der logischen Dateinum- 
mer, die im Akku steht, wird 
wieder geschlossen. Soll der 
Fehlerkanal 15 der Floppy 
nach einem Lasazugriff ga- 
schlossen werden, sollte das 


:Carry-Flag vor dem Aufruf ge- 


sotzt werden, nach einem 
Schreibzugriff. auf Kanal 15 
vorher gelöscht werden. Das 
G-Flag wird ignoriert, falls nicht 
der Fioppykanal 15 geschlos- 
sen wird. 


CHKIN ($ffc6): Eingabegerät 
definieren 

Übergaben: X 
Rückmeldungen: s. READST 
Vorarbeiten: OPEN _ 
Beeinitußte Register: A,X 
Eine mit OPEN geöffnete Datei 
wird als Eingabegerät definiert. 
Alte Eingaben mit GETIN oder 
CHRIN werden ab sofort nicht 
von dor Tastatur, sondern von 
dem Gerät, dessen logische 
Nummer in X stehen muß, 
gelesen. 


CHKOUT &ficd): Ausgabege- 
rät definieren 

Übergaben: X 
Rückmeldungen: s. READST 
Vorarbeiten: OPEN 
Beeinflußte Register: A,X 
CHKOUT ist das Gegenstück 
zu CHKIN: Das Gerät mit der 
logischen Nummer, die in X 
steht, wird als Ausgabegerät 
definiert. 


CLRCHN fee): Eingabe- und 
Ausgabegeräte-Rückstellung 
Übergaben:« 

Rückmeldungen: 8. READST 
Vorarbsiten:- 

Beeinflußte Register: A,X 

Die Routine legt den Monitor 
{Gerät 3) wieder als Ausgabe- 
gerät und die Tastatur (Gerät 0) 
als Eingabegerät fest. 


CHRIN ($ffch: Zeichen lesen 
Übergaben:- 
Rückmeldungen: A, s. RE- 
ADST S 


‘Vorarbeiten:- 


Beeintlußte Register: A,X 


Ein Zeichen wird von der ak- 
tuellen Eingabedatei gelesen 
{normal: Tastatur). Es steht 
nach dem Aufruf der Routine 
im Akku. Bei einer Eingabe von 
der Tastatur ist der Cursor 
sichtbar, und die Eingabe er- 
folgt bis zu. einem RETURN. 
Bei weiteren Aufrufen der Rou- 
tine werden dann die übrigen 
Zeichen der Eingabe übar- 
geben. 

CHROUT ($ffd2): Zeichen 
ausgeben ._ 

Übergaben: A 
Rückmeldungen: s. READST 
Beeinflußte Rogister:- 
CHROUT gibt ein Zeichen über 
das. aktuelle Ausgabegerät 
(normal: Monitor) aus. Der 
ASCII-Code des Zeichens muß 
im Akku stehen. 


LOAD ($ ffd5}; 
taden/vergleichen 
Übergaben: A,X,Y 
Rückmeldungen: X,Y, s.READ- 
ST Vorarbeiten: SETLFA, 
SETNAM 

Beeinflußte Register: A,X,Y 
Eins Datei mit dam Namen, der 
vorher mit SETNAM festgeiegt 
wurde, wird. von dem Gerät, 
das mit SETLFS festgelegt 
wurde, geladen, falls der Akku 
= ist, ansonsten aber vergli- 
chen (VERIFY). InX und Y muß 
die Adresse abgelegt warden, 
ab der das Programm stehen 
soll, wenn die festgelegte Se- 
kundäradressa bei SETLFS 0 
war. Ansonsten wird in jodem 
Fallan die abgespeicherte Ori- 
ginaladresse geladen. Nach 
dem Aufruf steht die Adresse 


des letzten geladenen Byles in 


X und Y. 


SAVE ($ tfd8): speichern 
Übergaben: A,X,Y, Anfangs- 
adresse in zwei aufeinander- 


. folganden-Zeropageadressen 


Rückmeldungen: s. READST 
Vorarbeiten: SETLFS, SET- 
NAM 

Beeinflußte Register; A,X,Y 
Ein Speicherbereich wird auf 


dem Gerät, das mit SETLFS- 


festgelegt wurde und unter 
dem Namen, der mit SETNAM 


OR MN 


definiert wurde, abgespeichert. 
Dar Speicherbereich wird so 
angegeben: Die erste zu Spei- 
chernde Adresse muß in zwei 
aufeinanderfolgenden Adres- 
sen dar Zaropage stehen, wo- 
von die niedrigere im Akku an- 
zugeben ist, und die erste nicht 
mehr zu speichernde Adresse 
muß in den FERRKTRIS EN 
stehen. 


SETTIM ($tfdb): Stelle die Sy- 
stemuhr 

Übergaben: A,X,V 
Rückmeldungen:- 
Vorarbeiten:- 

Beeinflußte Register:- 

Die interne Uhr des C16 wird 
gesteiit. Dabei muß die aktuelle 
Zeit in Sechzigstelsekunden 
nach Mitternacht angegeben 
werden. Diese Zahl ist 3 Byte 
lang. Die Bytes stehen in Y 
(MSB - most significant byte), 
X und Akku (LSB - less signi- 
ficant byte). 


RDTM ($ ffde): Systemuhr le- 


sen 
Übergaben:- 
Rückmeldungen: A,X,Y 
Vorarbeiten:- 

Beeinflußte Register: A,X,Y 
Dis aktuelle Uhrzeit wird gele- 
sen. und als 24-Bit-Zahl in 


Sechzigstelsekunden nach Mit- 
ternacht nach X,Y und Akku 
geschrieben (Format wie 
SETTIM). 

STOP {$ffet): Abfragen der 
RUN/STOP-Taste 
Übergaben:- 


Rückmeldungen: Zero-Flag 
Vorarbeiten: falls Systeminter- 
rupt ausgeschaltet wurde, UD- 
TIM aufrufen 

Beeinflußte Register: A,X 

Die Routine fragt die Stop- 
Taste ab. Falls sie gedrückt 
wurde, ist das Zero-Flag 1 und 
zusätzlich werden alle Ein- 
!Ausgabekanäle gelöscht 
{(CLRCHN). Wurde der Inter- 
rupt verändert (was wir bisher 
noch nicht getan haben), muß 
vorher UDTIM aufgerufen 
werden. 


GETIN ($ ffe4): Zeichen lesen 
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BE URS 


Übergaben:- 

Rückmeldungen: A, s. RE- 
ADST 

Vorarbeiten:- 

Beeinflußte Register: A 

Liest ein Zeichen von dem ge- 
rade aktuellen Eingabegerät 
{normal: Tastatur). Wird ein 
Zeichen von der Tastatur ein- 
gelesen, so erscheint weder 
der Cursor noch wird das Zei- 
chen auf den Bildschirm ge- 
schrieben (entspricht dem Be- 
tehi "GET" in BASIC). Bei an- 
deren Eingabegeräten ist die 
Funktion gleich wie bei CHRIN, 
es sollte jedoch besser CHRIN 
verwendet werden. 


CLALL ($ ffe?): Dateitabelle fö- 
schen 

Übergaben:- 
Rückmeldungen:- 
Vorarbeiten:- 

Beeinflußte Register: A,X 

Die Routine schließt alle Da- 
teien. Jedoch werden sie nur 
im Computer gelöscht, den Ge- 
räten wird kein CLOSE-Befehl 
gesandt. Daher sollte man ihn 
beim Datensenden nicht 
gebrauchen. 


UDTIM ($ tfea): Systemuhr ak- 
tualisieren 

Übergaben:- 
Rückmeldungen:- 
Vorarbeiten:- 

Beeinflußte Register: A,X 
Diese Routine schaltet die Uhr 
weiter. Normalerweise wird die 
jede Sechzigstelsekunde au- 
tomatisch aufgerufen, wird je- 
doch der Interrupt verändert, 
muß die Routine zum Aktuali- 
sieran der Uhr aufgerufen 
werden. 


SCREEN ($ffed): 
Bildschirmformat ermitteln 
Übergaben:- 

Rückmeldungen: X,Y 
Vorarbeiten:- 

Beeinflußte Register: X,Y 

Die Routine schreibt eine 40 
nach X und eine 25 nach Y (die 
Bildschirmformate). Die Rou- 
tine ist sinnvoll, wenn man 
Programme für alle Commo- 
dore-Rechner schreiben will, 
denn andere Rechner überge- 
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ben dann ihre Bildschirmfor- 
mate. Für Ci6-Programme 
überflüssig. 


PLOT ($fffO): Cursorposition 
leson/setzen 

Übergaben: Carry-Flag, falls 
Carıy =0: X,Y 
Rückmeldungen: falls 
Carry=1:X,Y 

Vorarbeiten:- 

Beeinflußte Register: A,X,Y 
Ist beim Aufruf der Routine das 
Carry-Flag gelöscht, wird der 
Cursor in Spalte Y, Zeile X ge- 
setzt (Y von 0.39, X von 
=..24). Ist das C-Flag gesetzt, 
wird die Cursorposition gelesen 
und nach Y und X übergeben. 


IOBASE ($tff3): Basisadresse 
der VYO-Register ne 


‚Übergaben:- 
Rückmeldungen: X, y 


Vorarheiten;- 

Besintlußte Register: X,Y 
Diese Routine ist, wie 
SCREEN, für Programme, die 
auf allen Commodore laufen 
sollen, da: Sie gibt die Basis- 
adresse (d.h. erste Adresse 
des Bereichs) der /O-Register 
aus, das ist beim C16 $1d00. 
RESET ($ff6): Systemreset 
Übergabe:- 

Rückmeldungen:- 
Vorarbeiten:- 

Beeinflußte Register: entfällt 
Diese Routine ist keine Unter- 
routine: Wird sie aufgerufen, 
führt der C16 einen Reset aus, 
so, als ob man auf den Reset- 
taster gedrückt hätte. 


© Multiplikatioren In 
Assembler 





Wie angekündigt, wollen wir 
jetzt eine Routine schreiben, 
die zwei 8 Bit-Zaklan multipli- 
ziert. Zunächst soll das Ergeb- 
nis 255 nicht überschreiten. 
Leider hat. die 7501 keinen Mul- 
tiplikationsbefehl, so daß wie 
einen eigenen Algorithmus 
schreiben müssen, Stellen wir 
uns den Ablauf zunächst ein- 
mal ohne Programm vor: 

Die beiden Faktoren werden Bit 
tür Bit multipliziert. Wir fangen 


damit an, zuerst das Ergebnis, 
das am Antang 0 ist, und den 
ersten Faktor zu verdoppeln, 
d.h. das Bitmuster um 1 Bit 
nach links zu schieben. Dann 
wird das Bit, das aus dem Fak- 
tor herausgeschoben wurde, 
das also von der ersten Stelle 
{Stellenwert 128) verschwun- 
den ist, untersucht. War esge- 
setzt, d.h. ist ein Überlauf ein- 
getreten, dann wird zum bishe- 
rigen Zwischenergebnis der 
zweite Faktor addiert. In allen 
Fällen springt das Programm 
aber danach zum Anfang 
zurück, bis alles 8x wiederholt 
wurde (Anzahl der Bits pro 


Faktor). Dann steht im Ergeb- 


nisspeicher eine Zahl, die ge- 
rade das Produkt der beiden 
Faktoren ist. Gehen wir den Al- 
gorithmus einmal mit den Zah- 
len 11 (%00001011) und 21 
(%0010101) durch, In Tabelle 
6 sind alle Schritte mit den In- 
halten der 3 Speicher eingstra- 
gan. Am Anfang stehen in Fak- 
tor 1 und Faktor 2 die beiden 
Faktoren, das Ergebnis ist 0. In 
den ersten 4 Schritten wird nur 
der 1. Faktor nach links ge- 
schoben, da jedoch kein Über- 
lauf eintritt, bleibt das Ergeb- 
nis, obwohl: es auch verscho- 
ben wird, immer 0. In Schritt 5 
wird nun eine 1 aus Faktor 1 
geschoben. Daher wird zum 
Ergebnis der 2. Faktor addiert, 
so daß dort nun 21 = 
%0010104 steht, Dann, in 
Schritt 6, wirkt sich das Links- 
verschieben auch auf das Er- 
gebnis aus: es wird verdoppelt 
zu 42 = %00101010. Da aus 
Faktor 1 wieder eine O gescho- 
ben wurde, wird auch nichts 
addiert. Das geschieht erst 
wieder in Schritt 7, wo zu dem 
inzwischen vervierfachten Er- 
gebnis wieder 21 addiert wird, 
das ergibt 105 = %01101001. 
Schließlich wird in Schritt 8 
noch einmal eine i aus Faktor 
1 geschoben und daher zu der 
verdoppelten 105 noch einmal 


21 addiert, also 210 + 21 = 


231. Und das ist haargenau 
11r21. i 

Programm 11 ist der Multipli- 
kationsalgorithmus als fertiges 


Programm. Zuerst werden zwei 
Zahlen gelesen, die in $dO und 
$d1 abgelegt werden {Faktor 1 
und 2). Dar Akku, der das Er- 
gebnisregister darstellt, wird 
mit 0 geladen und ein Zähler 
0X) auf 7 gesetzt. Dann, in Zeite 
1026 -1028, wird Ergebnis und 
Faktor 1 mit ASL verschoben. 
Das Carry-Flag gibt das hin- 
ausgeschobene Bit wieder. Ist 
es 0 (BCC), wird der Befehl 
zum Addieren des 2. Faktors 
zum Akku {Z. 1032-1034) über- 
sprungen. In Zeile 1036 -1098 
wird die Schleife geschlossen, 
indem X heruntergezählt wird 
und, solange X -t ist, zu 
JUMP2 gesprungen wird. Zum 
Schluß wird das Ergebnis für 
INTOUT nach X geschoben 
und der Akku gelöscht, da die 
Routine ja das Low-Byte in X 
und das High-Byte im Akku er- 
wartet. Das Programm wird mit 
SYS 1630,Faktor 1,Faktor 2 
gestartet. Bei Ergebnissen 
über 255 werden die ersten 
Bits abgeschnitten, Das Er 
gebnis zeigt also immer nur die 
letzten 8 Bits der Multiplikation 
an. 


© Der veränderte 
Zeichensatz 





Häufig, besonders bei dem un- 
erweiterten C16, taucht folgen- 
des Problem auf: Man möchte 
sine nicht allzu komplizierte 
Grafik erstellen, aber der Gra- 
fikmodus ist dafür ungeignet, 
weil ar zu viel Speicher braucht 
{10K8!) ind obendrein das Er- 
stellen der Grafik sehr langsam 
ist. Hier bietet sich die Tech- 
nik des veränderten Zeichen- 
satzes an, die der TED unter- 
stützt, BASIC jedoch nicht. 
Die Zeichensatzdaten sind im 
ROM des Ci6 von $d000 bis 
$ datt 
(Großbuchstaben/Grafikzeich- 
en) und von $d400 bis $d7ff 
{Klein/Großbuchstaben) ge- 
speichert. Jedes Zeichen, das 
der C16 darstellt, besteht aus 
8 Zeilen zu je 8 Punkten. Die 
Zeilen werden in je einem Byte 
im Zeichensatzspeicher ge- 
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speichert; ein Zeichen braucht 
daher 8 Bytes. Die 8 Punkte ei- 
ner Zeile werden durch die Bits 
im dazu gehörenden Byte ge- 
setzt oder gelöscht. Für das 
Byte 184 sähe die Zeile also so 
aus: 

184 = %10111000 -) Ri 
Die Adresse des ersten Zei- 
chensatzbytes eines Zeichens 
berechnet sich so: Adresse = 
Bassadessee + 8 x 
Bildschirmcode des Zeichens. 
Die Basisadresse ist beim Ork- 
ginalzeichensatz. $d000, die 
Bildschirmcodes der Zeichen 
stehen im Handbuch des C16 
auf den Seiten 219 und 214. 
Wollen wir jetzt den Zeichen- 
satz verändern, müssen wir die 
Basisadresse erst auf einen 
freien Bereich im RAM Ienken 
und danach, damit es kein 
Durcheinander auf dem 
Bildschirm gibt, die Original 
zeichen ab $d000 in den neu 
gewählten Bereich kopieren, 
denn sonst könnte man auf 
dem Bildschirm gar nichts 
mehr erkennen. Programm 12 
erledigt das Kopieren des Zei- 
chensatzes; es ist leicht zu ver- 
stehen und bedarf wohl keiner 
besonderen Erklärung. Als 
neusn Zeichensatzspeicherbe- 
reich wählen wir $380D-$ 300 
am Ende des RAM-Bereichss 
des 16KB-C16. Damit der 
BASIC-Interpreter diesen Be- 
reich nicht mit Variablen über- 
schreibt, müssen wird das 


BASIC-Ende auf $3800 setzen. 
Das geschisht in BASIC mit 
POKE 55,0 : POKE 56,56 ! 
CLR. 

In den Adressen 55/56 bzw. 








Schritt Faktor 1 








00001071 
00010110: 
060101100 
01011000 
10110000 
01100000 
11000000 
10000000 
00000000 





Anfang 


aamaGn- 
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Tabelle 6: Ablauf der Multiplikation der Zahlen 21 und 1} 


$37/ 38 steht der Zeiger auf 
das BASIC-Ende, d.h, im 
Low-/High-Byte-Format die 
Adresse, wo der BASIC- 
Speicher zu Ende ist. Durch 
den Befehl! CLR korrigiert der 
Interpreter einige andere Zei- 
ger. Wir wollen aber erst spä- 
tor aufdie Speicherverwaltung 
des Interpreters eingehen. Wir 
geben also die BASIC-Zeile ein 
und starten danach das Pro- 
gramm 12 mit SYS 1630. Jetzt 
ist. der Zeichensatz kopiert. Um 
dies dern TED mitzuteilen, 
müssen wir jetzt in $ff13.die 
neues Adresse des Zeichensat- 
zes schreiben, wobei nur Bit 
10-15 angegeben werden. Der 
Befehl heißt also: POKE 
65299,56 oder, in Assembler, 
LDA #338 und STA $1f19. Die 
ersten beiden Bits des Regi- 
sters $ff13, die nichts mit der 
Zeichensatzadresse zu tun ha- 
ben, bteiben gelöscht. Haben 
wir diesen Befehl eingegeben, 
erscheinen flimmernde Muster 
auf dem Bildschirm. Der TED 
meint nämlich, er müsse die 
Daten noch aus dem ROM le- 
sen. Über $3800 ist aber kein 
ROM, daher gerät er eiwas 
durcheinander. Wenn wir aber 


Bit 2 in $ff12 löschen (mit 


POKE 65298, PEEK (65298) 
AND 251 oder LDA $1f12, AND 
#$1b, STA $1112), liest or die 
Daten aus dem RAM und auf 
dem Bildschirm erscheinen 
wieder ”"vernünftige” Zeichen. 
Jetzt können wir einzelne 
Buchstaben verändern. In Pro- 
gramm 13 werden z.B. die 
eckigen Klarnmern, das Plund- 
Zeichen und der Hoch-Pieil 





Faktor 2 Ergebnis 


00000000 





00010101 


00010101 00000000 
00010101 00000000 
00010191 00000000 
00010101 00000000 
00010101 00010101 
00010101 00101010 
00910101 01101001 
09019191 11100111 


Ergebnis = 231. 


durch die Zeichen Ä,Ö,Ü und 
ersetzt, Hier sind. der Phanta- 
sia keine Grenzen gestzt. 
Wenn aber in BASIC eins Feh- 
lermeldung auftritt, wird der 
TED automatisch wieder auf 
"ROM-Lesen" umgeschaltet, 


so daß wieder die flimmernden . 
Muster entstehen Es empfiehlt: 


sich daher, beim Experimentie- 
ran eine Funktionstaste mit 
dem Schreibbefehl auf Regi- 
ster $fflI2 zu belegen: 


KEY 2,POKE 65298, PEEK 
(65298) and 251° + CHR$ (13) 
Wenn das Geflimmsere dann 
erscheint, reicht ein Druck auf 
t2. 


ODer Soft-Revers-Modus 





Auf diese Weise lassen sich bis 
zu 128 Zeichen verändern. 
Wenn das aber nicht reichen 
sollte (z.B. bei komplexeren 
Spielen), so gibt es eine Mög- 
lichkeit, die Zahl auf 256 zu 
erhöhen. 

Normalerweise erzeugt der 
TED. die reversen Zeichen 
hardwaremäßig, d.h. wenn 
man mit RVS ON den 
Revers-Modus eingeschaltet 
hat, invertiert er automatisch 
alle Zeichen. Wenn wir jedoch 
in Register $tf07 Bit 7 
{Erzeugung des RVS-Zeichen, 
s. Tabelle 4) setzen, so liest der 
TED die Daten für die RVS- 
Zeichen auch aus dem Spei- 
cher, und zwar hinter den nor- 
malen Zeichen, in unserem 
Beispiel also von $ 3IC00-$ 3fff. 
Schalten wir den Soft-RVS- 


Listings 


siehe 


nächste 
Seiten! 
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Modus also einmal mit ’POKE 
65286, PEEK (65286) OR 128' 
oder mit LDA $tf06', ORA 
#$80 , STA $tf06' an. Wenn 
wir jetzt die RVS ON-Taste 
drücken und tippen einige 
Buchstaben, dann sehen wir 
die Bitmuster aus $ 3000 -$ 3fff 
auf dem Bildschirm. Auch 
diese Zeichen können wir na- 
türlich verändern. Die Adresse 
eines Buchstaben berechnet 
sich dann so: Adresse 
(Reversbuchstabe) = Basis- 
adresse + $0400 + 8 x 
Bildschirmcode des Zeichens. 
Ausgeschaltet werden kann 
der Soft-RVS-Modus mit 
’POKE 65286, PEEK (65286) 
AND 127' oder mit 'LDA $ ffüß’, 
’And#$ 78, ’STA $tOß". 

Da die Grafik eine dor Stärken 
des C16 ist, werden wir im 
nächsten Teil weitere Möglich- 
keiten des TED besprechen. 
Außerdem ist eins Tabelle mit 
allen Zero-Page-Adressen und 
deren Funktion vorgesehen. 


Zum Schluß noch ein Buchtip 
für alle, dia Geschmack an As- 
sembler gefunden haben. im 
Markt & Technik Verlag ist ein 
ROM-Listing für die 'kleinen' 
Commmodore erschienen. Das 
ROM-Listing ist eine Wieder- 
gabe des gesamten ROMs in 
Assemblar mit Erklärungen zu 
den jeweiligen Routinen. Das 
Buch enihält aber auch eine 
ausführliche Beschreibung al- 
ter Kernel-Routinen, dar Zero- 
Page und der Speicherverwal- 
tung. Es hat etwa 440 Seiten 
und kostet 49,00 DM. 
Tilman Bauer 
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BE URS’ 





Programm 9 

1000: 

1002: ORG $065E 
1004: 

1006:SETLFS  EQU SFFBA 
1008:SETNAM EQU $FFED 
1010:SAVE EQU $FFDS 
1012:COMADR EQU $9DDE 
D14:FRESTA EQU 89048 
101E4LLQAUA EAU SWIC 
1018: 

1020: LDA #0 
1022: LDX #8 
1024: LDY #0 
1026: SA SETLFS 
1028: 

1030: JSR FRESTR 
1032: BEQ ERROR 
1094: CMP #17 
1936: BCS ERROR 
1038: JSR SETNAM 
1040: 

1942: JSR COMADA 
1044: STY 8D0 f 
1048: STA $D1 
1048: JSR COMADR 
1050: LDX #14 
1052: LDY $15 
1054: LDA #$D0 
1056: 

1058: JMP SAVE 
1060: 1 

1062:ERROR JUMP ILLQUA 
1064: 

1066END 

Programm 10 

2000: 

1002: ORG $065E 
1004: 

1006:SETLFS EQUS$FFBA 
1008:SETNAM EQGU $SFFBD 
t019:0PEN EQU $FFCO 
1012:CLOSE EQU $FFC3 
1014: 


BITBERSiHTE 


1016:CHKOUT EGU $FFC9 

1018:CLACHN EQU SFFCC 

1020:CHRIN EQU SFFCF 

1022:CHROUT EGU $FFD2 

1024:TEXQUT EQU $FFAF 

1926: 

1028: LDA #1 

1030: LDX #8 

1032: LDY #15 

1034: JSR.SETLFS 

1036: i 

1038: LOA #0 n 

1040: JSR SETNAM 

1042; JSR OPEN 

1944; 

1046: LDX #1 

1048: JSR CHKOUYT 

1050: 

1052; JSR TEXOUT 

1054: ASC"N: 
TESTDISK,TD" 

1056: BYTO 

1058: 

1060: JSR CLRCHN 

1062: LDX #1 

1064: JSA CHKIN 

1066; 

1068:LOOP- JSR CHRAIN 

1070: JSA CHROUT 

1072: CMP #13 

1074: BNE LOOP 

1076: 

1078; JSR CLRCHN 

1039: LDA #1 

1082: JMP CLOSE 

1084: 

108BEND 

Programm 17 

1000: 

1002; ORG $085E 

1004: 

1006:COMBYT EQU $9DD8 

1008:|NTOUT  EQU $A45F 

1010: 

1012: JSR COMBYT 


1014: STX sDO 
1016: JSA COMBYT 
1018: STX $dt 
1029: 
1022: LDA #0 
1024: LOX #7 
1026:JUMP2 ASL 
1028: ASL $DO 
1080: BCC JUMPI 
1032: cLc 
1034: ‚ADC $D1 
BJUMPI DEX 
1038: BPL. JUMPZ 
1040: 
1042: TAX 
1044: LDA #0 
1046: JMP INTOUYT 
1048: 
1050END 
Programm 12 
1000: 
1002: ORG $065E 
1008: 
1006: LDX #0 
1008:L00P LDA #D000,X 
3010: STA $3800,X 
1012: LDA 8D100,X 
3014: STA #3900,X 
1016: LDA $D290,X 
1018; STA $3A00,X 
1020: LDA $D300,X 
1022: STA $3B00,X 
1024; INK 
1026: BNE LOOP 
1028: ARTS 
13030: 
1932END 
Programm 13 
1000: 

ORG $38D8 ; 

Zeichen 27 


nn nn aaa 


1004: ; Eckige Klammer 
1006: 

1008: BYT #%01100110 
1010; BYT #%00011000 
1012: BYT #%00111100 
1014: BYT #%01100110 
1016; BYT #%01111119 
1018: BYT #%01100110 
1020; BYT #%01100110 
1022: ‚ BYT #%00000000 
1024: 

1026; ı Zeichen 28 

1028: » Pfund-Symbot 
1030: 

1032: BYT #%01100110 
1034: BYT #.%00111100 
1036: BYT #%01100110 
1038: BYT #%01100110 
1040: BYT #%01100110 
1042: BYT #%01100170 
1044: BYT #%00111100 
1046: BYT #%00000000 
1048: 

1050: ı Zeichen 29 

1052: ‚ Eckige Klammer 
1054: 

1056: BYT #%01100110 
1058: BYT #%00000009 
1060: BYT #%017100119 
1062: BYT #%01100110 
1064; BYT #%91100119 
1066: BYT #%01100110 
1068: BYT #%00111100 
1970: BEYT #%00000000 
1072: 

1074: ı Zeichen 30 
‚1078: ; Pfeit nach oben 
1078: 

1080: BYT #%01100110 
1082: BYT #%00000000 
1084: BYT #%01100110 
1086: BYT #%01100110 
1088: BYT #%01100110 
1090: BYT #%01110110 
1092; BYT #%01101100 
1994: BYT #%01100000 
1096: 

1098END 








34 


Auch im Zeichensatz des Com- 
modore-MPS-801-Druckers be- 
finden sich keine der deut- 
schen Zeichen (AUÖaäuößs). 


Aber wie auch schon im ROM ’ 


des Citizen-IDP-560-Druckers 


. (sishe SA 4/89) kann man den 


Zeichensatz ändern. 

Beim MPS 801 befindat sich 
das CHR-ROM (ebenfalls ein 
EPROM 2732) auf einer Pla- 
ting, die an der rückseitigen 
Metaliplatte des Druckers be- 
festigt ist. Die Platte, die leicht 


an den Steckbuchsen für das 
serielle Kabel zu erkannen ist, 
ist zwischen der Gehäuseo- 
berhälfte und dar Gehäuseun- 
terhälfte eingeschoben. Das 
EPROM liegt in der Mitte der 
Platine, direkt bei der Andruck- 
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Kleinanzeigenkarte 
Egal, ob Sie Produkte verkaufen, kaufen 
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BE INWÜNRS 





Programm 9 


1009: 
1002; 
1004: 
1008:SETLFS 


1008:SETNAM. 


I010:SAVE 


1012:GCOMADR 


1014:FRESTA 
1018:1LLQUA 
1918; 

1020: 

1022: 

1024: 

1926: 

1028: 

1030: 

1032: 

1034: 

1036: 

1038: 

1040: 

1042: 

1044: 

1046: 

1048: 

1050: 

1052: 

1054: 

1056: 

1058; 

1060; ; 
1062:ERROR 
1064: 
1066END 


Programm 10 


1000: 

1002: 

1094: 
1006:SETLFS 
1008:SETNAM 
1010:0PEN 
1012:CL0OSE 
1014: 
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ORG $065E 


EQU $FFBA 
EQU $FFBD 
EQU $FFDS 
EQU $9DDE 
EQU 39048 
EQU SII1C 


LDA #0 
LDX #8 
LDY #0 
JSR SETLFS 


JSA FRESTR 
BEQ ERROR 
CMP #17 

BCS ERROR 
JSR SETNAM 


JSR COMADRA 
STY DO 


STA $D1 

JSA COMADA 
LDX $14 

LDY $15 

LDA #$D0 


JMP SAVE 
JMP ILLQUA 


ORG $065E 


EQU $FFBA 
EQU $FFBD 
EQU $FFCO 
EQU $FFC3 


Kleinanzeigenkarte 
Egal, ob Sie Produkte verkaufen, kaufen 








Auch im Zeichensatz des Com- 
modore-MPS-801-Druckers be- 
finden sich keine der deut- 
schen Zeichen (AlÖäuöß$). 
Aber wie auch schon im ROM 
des Citizen-IDP-560-Druckers 
(siehe SA 4/89) kann man den 


Zeichensatzänderung 


Zeichensatz ändern. 

Beim MPS 801 befindet sich 
das CHR-ROM (ebenfalls ein 
EPROM 2732) auf einer Pla- 
tine, die an der rückseitigen 
Metallplatte des Druckers be- 
festigt ist. Die Platte, die teicht 


r ioti oder tauschen möchten, eine Anzeige in 
Die MEitlier dieser Zeitschrift hilft Ihnen weiter. Über 
1016:CHKOUT EQU sFFCO 1014: diese Service-Karte können sie ach 
mc" Auer | nr 
i E Folgende Rubriken können gewählt 
1022:CHROUT EGUSFFD2 | 1020: an . 
1024.-TEXOUT EQU SFFAF 1022: ® Biete Software oder Hardware 
1026: 1024: ® Suche Software oder Hardware 
1028: LDA #1 1025: JU © Tausch und Kontakte 
1030: LDX #8 1028: ® Verschiedenes 
10932; LDY #15 1039: 
1934: JSR.SETLFS 1032: 
1036; ei 1034: 
1038: LDA #0 4 1036:3U 
1040; JSR SETNAM 1038: 
1042: „JSR OPEN 1040: | 
1044: 1042: 
1046: LDX #1 1044; 
1048: JSR CHKOUT 1046; 
1950: 048: 
1052: JSA TEXOUT | 1050EN Bestellkarte 
1054: ASC"N: Haben Ihnen die Programme dieser 
TESTDISK,TD" | Ausgabe von »Compute mit« gefallen? 
1056: BYTO Program 
1058; Wollen Sie sich das Eingeben ersparen 
1060: JSRCLACHN |] 1000: und die Programme gleich lauffähig auf 
1062: LDX #1 1002: Kassette oder Diskette beziehen? 
1004: JSR CHKIN 1004: Dann sollten Sie diesse Bestellkarte nut- 
1066; 1006: zen. Auch die Datenträger zu älteren 
EELOOR i Se Senn Ba Aaaben sind zum Teil noch zu be- 
B R ziehen! 
1072: CMP #13 1012: 
1074; BNE LOOP 1014: 
1076; 1016: 
1078: JSACLRCHN | 1018: 
1080: LOA #1 1020; LUAFLSW,RX I 1070: BYT #%00009000 
1082: JMP CLOSE 1022: STA $3800,X 1072: 
1084: 1024: INK 1074: ; Zeichen 30 
1086END 1026; BNE LOOP 1076: ‚ Pfeit nach oben 
1028: RTS 1078: 
1030: 1080: BYT #%01100110 
Programm 79 1032END 1082: BYT #%00000000 
In r 1084: BYT #%01100110 
E 1086: BYT #%01100119 
1002: ORG $065E 1088: BYT #%01100110 
1004: Programm 13 10%: BYT #%01110119 
1006:COMBYT EQU #9DD8 1092: BYT #%01101100 
1008:INTOUT  EQU $A4SF 1000; 1994: BYT #%01100000 
1910: 002; ORG 53808 ; 1096: 
1012; JSR COMBYT Zeichen 27 1098END 





an den Steckbuchsen für das 
serielie Kabel zu erkennen ist, 
ist zwischen der Gehäuseo- 
berhältte und der Gehäuseun- 
terhäffte eingeschoben. Das 
EPROM liegt in der Mitte der 
Platine, dirakt bei der Andruck- 
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1064: 1082: JMP CLOSE 
TO66END 1084: 
1086END 
Programm 10 
Programm 11 
1000: 
1002: ORG $065E 1000: 
1004: 1092: ORG $065E 
1008:SETLFS EQU $FFBA 1004: 
1008:SETNAM EQU #FFBD 1006:COMBYT EQU 89DD8 
1010:0PEN EQU $FFCO 1008:!NTOUT EQU $A4SF 
1012:CLOSE EQU $FFC3 1010: 
1014: 1012: JSA COMBYT 
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Auch im Zeichensatz des Com- 
modore-MPS-801-Druckers be- 
finden sich keine der deut- 
schen Zeichen (ÄUÖAUöR8). 
Aber wie auch schon im ROM ' 
des Citizen-IDP-560-Druckers 
(siehe SA 4/89) kann man den 








E be {1 2 2 = 
5 | | z Au 
= 2 zT 
E A 5 
EN 3 = 
IH 4 
oO 65 2] 3 
u 2 09 S 
$® D&S3. = 
en » 2} ” 
oO Org '% 5 
mE « R 
NM orß8 
4 
Ö SI] BD 
03% 
a m 
8 °® 
® 3 
5 ” m —— 
mi [ gu: | 
| „Lk: 8 
8.285 
ea 
| 3 
vo, LUA PLUSUyA 1U7U: BYT #%00000000 
1022: STA $3800,X ‚1072: 
1024: INX 1074: ; Zeichen 30 
1026; BNE LOOP 1076: ; Pfeil nach oben 
1028: ATS 1078: 
1030: 1080: BYT #%O1100110 
TO32END 1082: BYT #%00000000 
1084: BYT #%01100110 
1086; BYT #%01100110 
; 1088: BYT #%01100110 
Programm 13 1090; BYT #%01110110 
y 1092: BYT #%01101100 
1000: 1094: BYT # %01100000 
1002: ORG $38D8 ; 1098: 
Zeichen 27 1098END 


Zeichensatzänderung 


Zeichensatz ändern. 

Beim MPS 801 befindet sich 
das CHR-ROM. (ebenfalls ein 
EPROM 2732) auf einer Pla- 
tine, die an der rückseitigen 
Metallplatte des Druckers be- 
festigt ist. Die Platte, die leicht 






an den Steckbuchsen für das 
serielle Kabel zu erkennen ist, 
ist zwischen der Gehäuseo- 
berhälfte und der Gehäuseun- 
terhälfte eingeschoben, Das 
EPROM liegt in der Mitte der 
Platine, direkt bei der Andruck- 
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walze des Papiertransports, 


Die Matrix der Zeichen besteht 
auch in diesem ROM aus je- 
weils sechs Bytes pro Zeichen. 
Die Adressen für die neuen 
Zeichen sind - vorausgesetzt 


die EPROM-Daten stehen ab’ 


$4000 im Speicher - die 
folgenden: 


Großbuchstaben: 





EPROM-SOCKEL 


24-polig 
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123,Ä = 34ba2 + $4da2 
124,0 = $4baß + $4da8 
125,Ü = $4bae + $4dae 


Kleinbuchstaben: 
187,4 = $4322 
188, 6 = $4aaß 
189, ü = $4aa8 
190, 8 = $4aba 


Sonderzeichen: 
64,8 = $4900 


vIPS & TRICKS Ha 


Nun fehit nur noch die Mög- 
lichkeit, dig CBM- und CBM- 
DIN-Zeichensätze zum Um- 
schalten in den Drucker einzu- 
setzen. Aber auch das istrecht 
einfach mit ginem 28-poligen, 
normalen EPROM-Sockel zu 
machen, Es brauchen im Dru- 
cker und am EPROM keine 
Lötarbeiten vorgenommen zu 
werden, sondern nur am Adap- 
tersockel (siehe Skizze). 


- Mit dieser Skizze dürfte beim Umbau eigentlich nichts schiefgehen. 


nun 


Die EPROM-Daten stehen jetzt 
nicht in einem EPROM 2732, 
sondern in dem doppelt so 
großen 2764. Der eine Zei- 
chensatz wird von $4000 bis 
$4fff und der andere von 
$5000 bis $5fff gesetzt. Mit 
dem Umschalter (1*UM)} wird 
der gewünschte Zeichensatz 
ausgewählt, 


Eberhard Sirges 





Statt EPROM 2732 (4KB) 


‚EPROM 2764 (8KB) 28-polig 
F 


Sn 


+. 


5V 


„„„1IC-Sockel 28-polig 
= einfache Ausführung 


Platine 


24-polig 


„Sockel im Drucker 


Sockel als Adapter 
28-polig 


Schalter 
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22222222222222222222222227222222272 


is Netzteile für den 
A C16/116/Plus/?4 haben 

eings gemeinsam: sie 
gehen mit großer Wahrschein- 
lichkeit irgendwann kaputt. 
Man kann sich geradezu dar- 
auf verlassen. Irgendwann 
start man fassungslos auf er 
nen Bikdschirm, der nichts 
mehr anzeigt, und die rote 
Leuchtdiode am Rechner ist or- 
loschen. Mir persöhnlich ist das 
nach einiger Zeit des Betriebs 
bei meinem Plus/4 passiert. Ich 
arbeitete gerade so schön mit 
meiner Textverarbeitung, als ‘ 
plötzlich kaum sichtbare wol- 
kenähntliche Streifen über den 
Bildschirm wanderten. Bevor 
ich dazu kam, mir darüber Sor- 
gen zu machen, war der 
Schirm mit einemmal erko- 
schen und eine Seite Text im 
Datenhimmel, 
Also: Treten bei Ihnen mal un- 
gewöhnliche Erscheinungen 
auf dem Bildschirm auf, so bg- 
deutet dies höchste Alarm- 
stufe! 
Ich habe mein Netzteil selbst 
repariert, wie auch schon das 
eines Bekannten. Natürlich 
kann man das Netzteil auch in 
einem Elektrogeschäft reparie- 
ren lassen, dies kostet dann 
aber meist so viel, daß man da- 
für ein neues Netzgerät hätte 


kaufen können. 
Bevor ich beschreibe, wie man 
die Reparatur vornimmt, 


möchte ich vorausschicken, 
daß ich kein Fachmann für 
Elektronik bin. Ich kann eine 
Sicherung von einem Konden- 
sator unterscheiden, und mehr 
ist auch nicht nötig in diesem 


Fall. Desweiteren möchte ich 
darauf hinweisen, daß ich nur 
die Beseitigung eines Stan- 
dardfehlers beschreibe: es 
kann durchaus sein (wenn 
auch nicht sehr wahrschein- 


‚lich), daß etwas anderes defekt 


ist! 

Was man unbedingt braucht 
ist: ein Lötkolben, Lötzinn, er 
nen mittleren Schraubendreher 
und einen Seitenschneider 
oder eine Kneifzange. Nun 
geht's ios. Der Stecker des 
Netzteils wird aus der Steck- 
dose gezogen (es sei denn, Sie 
gehören zu den abgehärteten 
Bastlern, die as spannend fin- 
den, ab und zu unter 220 Volt 
zu stehen)! Dann öffnet man 


mit dem Schraubendraher/ 


-zieher das Gehäuse. Da man 
hier vergeblich nach Schrau- 
ben sucht, muß der Boden ab- 
gehebelt werden. Das geht 
ziemlich schwierig und es wer- 
den mit ziemlicher Sicherheit 
einige Streben abbrechen. Das 
macht aber nichts, solange die 


Platine heil bleibt. Nachdem 


man den Boden endlich abbe- 
kommen hat, erblickt man ein 
paar Kabel, eins Kunstharz- 
masse, in die der Trafo ver- 
senkt wurde (damit man nie 
wieder an ihn harankommt), 
sowie die Unterseite einer klei- 
nen: Platine. Kurz, man sieht 
eben das, was man sich bei 
Commodore unter einem 
Netzteil für den Plus/4 vorge- 
stellt hat. 

Ein Teil dieser Platine ist braun 
bis schwarz geröstet. Auf der 
gegenüberliegenden Seite lie- 
gen die Bauteile, die den Geist 


aufgegeben haben: vier zarte 
Dioden. Um an die heranzu- 
kommen, biegt man die Platine 
vorsichtig hoch. Aber Achtung! 
Bevor man sie hochbiegt, muB 
ein Beinchen des dreibeinigen 
Bauteils (Spannungsregler) 
abgelötet werden, da es sonst 
eventuell abbricht. Außerdem 
sollte man nicht unbedingt ver- 
suchen herauszufinden, ob der 
große, gelba Kondensator noch 
geladen ist (meistens ist ar's). 
Die Plating biegt man soweit 
hoch, bis sie fast senkrecht 
Steht. Die Dioden erkenntman 
sofort: sie sind klein, schwarz 
und wahrscheinlich ange- 
schmort. 

Ich habe es nun so gemacht, 
daß ich beim ersten Mat mit 
dem geöffneten Gerät zu ei- 
nem Elektro-Geschäft gegan- 
gen bin und vier solche Dioden 
verlangt habe. Nachdem der 
Verkäufer einen mitleidigen 
Blick auf das Schlamassel ge- 
worfen hatte, gab er mir vier 
stärker dimensionierte Dioden 
{3 Ampere). Das ist wichtig, 
denn die Originaldioden sind 
unterdimensioniert, was ja dar 
Grund für ihr Durchschmoren 
ist. Das Stück kostete DM 1.20. 
Dann habe ich die Dioden aus- 
getauscht, eine nach der ande- 
ren, Eine nach der anderen 
deshalb, weil man sie nicht be- 
liebig einbauen darf. Eine Seite 
ist nämlich mit einem silbernen 
Streifen bedruckt, und. der muß 
in eine bestimmte Richtung 
weisen. Baut man die Dioden 
falsch ein, so kann sich nach 
dem Einschalten das Netzteil 
oder gar der Computer in et- 
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was verwandeln, was man nur 
noch als Computerschrott be- 
zeichnen kann {macht auch 
nicht allzuviel, in den Kleinan- 
zeigenteilen von Fachblättern 
wird eifrig nach Computer- 
schrott gesucht). Nach dem 
Austausch der Dioden wird die 
Platine wieder zurückgebogen, : 
wobei darauf zu achten ist, daß 
das abgelötete Beinchen des 
Spannungsreglers wieder sei- 
nen Weg in die dazugehörige 
Bohrung findet. Dann wird 
auch das gelötet und die über- 
stehandan Beinchen der Dio- 
den werden abgeknüfen (mit 
dem Seitenschneider). Auch 
dabei sollte man aufpassen, 
bei mir fliegen die abgezwick- 
ten Stückchen immer mit 
Überschallgeschwindigkeit 
durchs Zimmer. Also nicht auf 
Personen, Hauskatzen oder 
Lautsprecher zielen! Nun. 
braucht nur noch der Boden 
des Netzteils wieder aufge- 
drückt zu werden und schon ist 
man fortig. 

Die Fachleute unter den Lesern 
werden diesen Artikel mit 
kopfschüttelnden Grausen g& 
lesen oder sich totgelacht ha- 
ben. Doch meine Methode 
funktioniert. Trotzdem kann ich 
keinerlei Garantie dafür über- 
nehmen, daß das auch bei Ih- 
nen der Fall sein wird. Ich finde 
lediglich, daß DM 4.80 und eine 
Arbeitszeit von knapp ‘einer 
Stunde den Versuch rechtferti- 
gen, Ihnen zu schildern, wie 
man's selbst machen kann! 


Peter Hakenjos 
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Beim Spiel "The Galaxy 
Master” geht es darum, die 
Vorherrschaft in der Galaxis zu 
erringen. Bis zu acht Spieler 
können gleichzeitig 1eilneh- 
men. Werden Sia der Meister 
der Galaxie, indem Sie den 
günstigsten strategischen Weg 
wählen, um sich am Ende ge- 
‘gen die anderen Mitspieler be- 
haupten zu können. Das heißt: 
Erobern Sie so viele Planeten 
wie irgend möglich. Schließen 
Sie Bündnisse mit Ihren Mit- 
spielern (um sie bei nächster 
Gelegenheit zu brechen, z.B. 
durch Überfälle auf Planeten 
von Bündnispartnerm) oder 
kämpfen Sie gegen Alles und 
Jeden. Der Computer mischt 
übrigens auch mit... 

Um Ihre Ziele zu verwirklichen, 
haben Sie einen langen Weg 
vor sich. Sofern kein altes Spiei 
fortgeführt werden soll, muß 
zunächst die Anzahl der Spie- 
lor {1-8}, die Anzahl der Welten 
in der Galaxie (20-90), daß 
Spielende (beliebig, aber nicht 
übertreiben!) sowie die Spieler- 
namen/Farben eingegeben 
werden. Der Computer erzeugt 
nun das Spielfeld, was je nach 
Anzahl der Welten bis zu eini- 
gen Minuten dauern kann. Nun 
sehen Sie eine Tabelle vor 
sich, in dar die wichtigsten Da- 


PROSCRANMDLIE 


MNerrscher 
x des * 





ten der Welten, wie Schiffspro- 


“duktion, Besitzer und aktuelle 


Fiottenstärke aufgeführt sind. 
Jede Welt bekommt eine feste 
Nummer, so daß sie auch in 
der Sterrienkarte, die mit Taste 
"S” aufgerufen werden kann, 


zu finden ist. Weiterhin kann. 


mit den Cursor-Tasten inner- 
halb der Tabelle geblättert 
werden, um sich einen Über- 
blick zu verschaffen. Am 
unteren Bildrand ist zu sehen, 
welcher Spieler gerade an der 
Reihe ist. Jeder Spieler kann 
nun der Reihe nach seine Flot- 
ten verschicken, indem er die 


. Startweit, die Zielwelt und die 


Anzahl der Schiffe eingibt. 
Jede Zahleneingabe wird mit 
"RETURN” abgeschlossen, 
Fehler werden abgefangen. 
Die Ziffernanzeige ist während 


C-16 LISTING + CHECKSUMMEN (0C V1.0) 
10 REM ke 57 
20 REM «"* MASTERS OF GALAXY *#r <96> 
30 REM "tr BOOT-PROGRAMM wu. <48> 
40 REM Mir mn nn a lee) <92> 
50 REM #*"* tC) 1988 F. CRINS *"*« <87> 
60 REM **#« GRAF-MIRBACH 10 m «2357 
70 REM *"# 4045 NETTETAL 1 ur <198> 
BG REM <75> 
1 a Fa ! :£148> 
100 COLOR4,1:COLORO,1:COLOR1,1:SCNCLR <61> 
119 FORI=1T08:KEYL, CHR$(0) :NEXTI <40> 
120 PRINT"POKE43.65 ; POKE44, 21 : POKES440,,0: NEW 
B <24> 
130 PRINT" { DOWN2}LOAD"CHRS$ (34) "TCM. CHAR"CHRS 
(34)",8,1" <115> 
140 PRINT" { DOWN4} LOAD"CHR$ (34) "TGM.MAIN"CHR$ 
34)',8" <29> 
150 PRINT" LDOWN4YRUN: " % <3 
160 COLOR1,7:PRINTTAB (5) " ( DOWN} BOOTING{ SPACE 
ee ZEACEIGALAXY“ SPACEYMASTERISPACH) . . .":CO 

» 6? 

170 POKE1319,19:POKE1320,13:POKE1321,13:POKE 
3322.13:POKE1323.13:POKE239,5 <242> 


ENDE DES LISTINGS 
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Universums 





dar Eingabe ausgeschaltet, um 
die Eingabe vor neugierigen 
Blicken zu schützen. Will ein 
Spieler keine Eingabe mehr 
machen, so bestätigt er die 
letzte durch zweimaliges Drük- 
ken von "RETURN" und der 
Taste ”J”, Mit "Z” kann man 
die Transierzeit von einem 
Planeten zum anderen erfah- 
ren, Die Tasten "F” und "V”" 
geben Daten über die Flotten- 
verbände aus, Mittels der Tas- 
te "H” schließlich gelangt man 
in ein Hilfsmenü, welches wei- 
tere Optionen bereithält. 

Wie bereits gesagt, existiert die 
Möglichkeit, mit einem alten 
Spielstand fortzufahren. Wählt 
man im Hilfsmenü die Option 
"Ende", dann wird der aktuelle 
Spielstand gespeichert, und 
das Programm wird beendet. 





Es ist auch möglich, daß ein 
Spielar während ein Spiet läuft 
"aussteigt”, dazu dient die Op- 
tion "Quit”’. Auch ist es mög- 
tich, die Spielzeit zu ändern. 
2» Hinweise zur Eingabe: 
Alte REMs können weggelas- 
sen werden. Tippen Sie die drei 
Basic-Teile. mit dem Check- 
summer ein, und speichern Sie 
sie unter den folgenden Namen 
auf Diskette ab: 

TGM.BOOT 

CHARGEN 

TGM.MAIN 

Nun den Rechner kurz aus- 
schalten, POKE 43,1:POKE 
44,32:POKE 8192,0: NEW ein- 
geben und das Programm 
CHARGEN laden. Dies wird 
nun mit RUN gestartet, wo- 
raufhin 85 die neuen Zeichen 
abspeichert. Ist dies gesche- 
hen, so kann das Spiel durch 
Laden und Starten des Pro- 
grammteils TGM.BOOT gestar- 
tet werden, 





Programmname: The Ga- 
laxy Master 
Computertyp: C16/116 
mit 64K-RAM/Plus/4 
Lauffähig auf: Floppy 
Besonderheiten: Strate- 
giespiel für bis zu acht Mit- 
spieler 









C-16 LISTING + CHECKSUMMEN (0C Y1.,0) 
10 REM alla Ed B.2 2.205 8.5 2.2.2.2 2.2.7 27203 <5> 
20 REM *** THE GALAXY MASTER *** <76> 
30 REM *** ZEICHENGENENRATOR kr« <174> 
40 REM Hr -- nun LIT €92> 
50 REM *+* (C) 1988 F, CRINS *r« <87> 
60 REM *«® GRAF-MIRBACH 10 "un «2353 
70 REM *** 4045 NETTETAL 1 ter <198> 
80 REM WORTE N <75> 
90 : <148> 
100 REM: PRUEFT AUF UEBERSCHREIBSCHUTZ <169> 
110 IFPEEK(44) >21THEN160 <120> 
120 PRINT" CLEAR}POKE43, 1: POKE44, 22: POKESEI2 
‚0 :NEW" : PRINT" EINGEBEN!" <132> 
130 STOP <18> 
140 : - £196> 
150 REM M-CODE EINLESEN <44> 
250 PRINT" (CLEAR DOWN3}Y BITTE SPACEIWARTEN{ SP 
ACE},.," j <214> 
170 RESTORE240 <246> 
180 FORI=900T0930 <192> 
190 :READX:POKEI,X 5 <147> 
200 NEXT <74> 
210 SYS900:REM ZEICHENSATZ AUS ROM HOLEN <34> 
220 : h <22> 
37 











BEN PROCRAMMIE 


230 REM M-CODE DATAS 

240 DATA160,0,1232,217,132,219,169,208,133,21 
8,169,16.133,220,162.3.177.217 

250 DATA145,219,200,208,249,230,218,.230, 220, 
202, a 242,96 

260 

270 REM NEUE ZEICHEN EINLESEN 

280 RESTORE380 

290 FORJ=0TO80 

300 ;READX:AD=4096+X*B 

310 :FORI=0T07 

320 : :READX 

330 ::POKEAD+1,X 

340 :NEXTI 

350 NEXTJI 

360 : 

370 REM ZEICHENDATAS 

380 DATA64,0,15,693,255,195,153,145,137 
390 DATA65,153.153,195,2955,63,15,0,0 
400 DATA66,0.15.62,.255,231.231,199, 231 
410 DATA67,231,231,129,255,63,15,0,0 
420 DATA68,0,15,69, 255,195,153, 249,243 
430 DATA69,207,159,129,255,63,15,.0,0 
440 DATA70.0,15,63,255,195, 193,249, 227 
450 DATA71,249,153,195,255,63,15,0,0 
460 DATA72,0,15,63,255,249, 241, 225,153 
470 DATA73,129,249,249,255,63,15,.0.0 
480 DATA74,0,15,63,255.129,159,131,249 
490 DATA75,249,1593,195,255.693,15,0,0 
500 DATA?6,0,19,63,255.195,153,.159,131 
510 DATA77,153,153.195,255,63,15,0,0 
520 DATA78,0.15.63,255,129,159, 243,231 
530 DATA79, 231, 231,231.255,63,15,0,0 
540 DATA80,0,15,63,.255,195,153,153,195° 
550 DATA81,153,153,195,259,63.15,0,0 
560 DATA82,0,13,63,255,195,1593,153,193 
570 DATA93, 249,153,195.255,63,15,0,0 
580 DATA84,0,4,64,0,0.16,0,0 


590 DATA85,0.0.0,16,0,0,4,0 
600 DATA86,0,0,0,128,0.0,0.0 
610 DATA87,0,0,12,30,12,0,0,0 
620 DATA88,0.0.0.0,0,0,0,0 
630 DATA89,0.32,64,0,0,0,0,.0 
640 DATA90,0,0,4,0,0,0,0,16 


650 DATA95,0,240,252,255,195,153,145,137 
660 DATA112,153,1593,195,255,252,240.0,0 
670 DATA127.0.240,252,255,231,.231.199,231 
680 DATA124,231,231,129,255,252,240,0,0 
690 DATA108,0,240.252,255,195,153, 249, 243 
7006 DATA113,207,.159,129.255,252,240,0,0 
710 DATA123,0,240,252,255,195,153, 249,227 
720 DATA101,249,153,195,255,252,240,0,0 
730 DATA116,0,240,252,255,249,241, 225,153 
740 DATA98,128,249,249,255,252,240.0.0 
750 DATA97,249,153,195, 255,252. 240,0,0 
760 DATA117,0,240,252,255,129,159,191,249 
770 DATA118,0,240,252,255,195,153,159,131 
780 DATA103,153,153,195,255,252,240,0,0 
790 DATA106,0,240,252,255,.129,153,243, 231 
800 DATA121,231,231,231,255,252,240,0.0 
810 DATA111,0,240,252,255,195,153,153,195 
620 DATA107,153,1593,195,255,252,.240,0,0 
830 DATA114,0,240,252,255,195,153,153,193 
640 DATA110,249,159,195, 255,252,240,0,0- 
850 DATA91,0,0,5,21,85,85,89,85 

860 DATA92.0,0,64,80,84,87,87,84 

870 DATA93,0,0,0,0,0,0,240,60 

880 DATA94,240,192,0,0,0.0,0.0 

890 DATA96,240,63,15,0,0.0,0,0 

900 DATA93,.85,89,245,255,95,85, 21,5 

910 DATA100,84,87,127,252,212,84,80,64 
920 DATA102,0,0,0,0,0,0,7,254 

930 DATA104,0,.0,0,0,0,15,248,1 

940 DATA105,0,0,31,0,63,.255,0,0 

950 DATA109,0.0,255,3,192,254,15.7 

960 DATA115,0,0,128,248.124.62,159,207 


<B> 
<150> 


<134> 
<63> 
<5B> 
<115> 
<226> 
<28> 
<95> 
<228> 
<137> 
<110> 
<117> 


<163> . 


<200> 
<117> 
<251> 
<244> 
<185> 
<237> 
<78> 
<a3> 
<86> 
<58> 
<156> 
<38> 
<136> 
<193> 
<123> 
<36> 
<221> 
<104> 
<148> 
<68> 
<215> 
<121> 
<77> 
<42> 
<a4> 
<41) 
<71> 
<150> 
<17> 
<127 
<253> 
<37> 
<15> 
<205> 
<91> 
%227) 
<79> 
«377 
<0> 
<88> 
<223> 
<249> 
<24> 
«67% 
<133> 
<49> 
<97> 
<91> 
<154> 
<15> 
<199> 


<1139> 


<179> 
<58> 
<B6> 
<79> 
<212> 
<66> 
<247> 
<114> 


1180 DATAS9,0.16,.0,.112,128, 


970 DATA119,3,7,30,124,241, 227,231. 231 

980 DATA120,224,135,28,113,199,31,63,63 

990 DATA122,127,235, 255, 255,255, 255,254, 252 
1000 DATA125,255,255,255,254,248, 227,15.124 
1010 DATA126,243,231,143.60,240,195.15.60 
1020 DATA28,207,207,15,.62,248.224,0,0 

1030 DATA0,227,227,241.120.60,31,7.0 

1040 DATA35,63,159,192,255,0,0,255,0 

1050 DATA36,241,253,0,255,0,0,255,0 

1060 DATA37,192,7.30,248,0,.0,0.0 

1070 DATA38,60,240,192,0,0,0.0,0 

1080 DATA39,0,0,0,0,0,3,63,240 

1090 DATA40,0.0,.12,32.1,4,0,50 

1100 DATA41,0,32,66,4,16,0,36,2 

1110 DATA42,4,66,2,16,3.128,16.1 

1120 DATA43,0,.4,0,17,0,130,16,0 

1130 DATA44,0,0,0,64,64,0,32,64 

1140 DATA45,0,196,0,3,16,8,0,17 

1150 DATA61,66,50,0,34,194,16,0.10 

1160 DATA47,160,104,120.120,144,3,80,2 

1170 DATA58,5.128.135,0.112,2,192.197 

0,0,0 

1190 : 

1200 REM M-CODE2 EINLESEN 

1240 FORI=5120105427 

1220 :READX:POKEI,.X 

1230 NEXTI 

1240 : 

1250 REM M-CODE2 (BEFEHLE) " 

1260 DATA138,10,170,189,11,20,168,189,12,20, 
96,0,.12.40,12,80,12,120.12,160,12 

1270 DATA200,12,240,12,24,13,64,13,104,13,14 
4.13,184,13.224,.13,8,14,48,14,88 

1280 DATA14,128,14,168,14,208,14,248,14,32,1 
5,72,15.112,15,152,15,192,15,134 

1290 DATA173,132,171,133,174,120,32,.134,20,2 
02,32.155.20.198,173.166,173,228 

1300 DATA171,208,241,76,110.20,134,173,132,1 
71,133,174, 120, 166, 173, 32, 134, 20 2 

1310 DATA232.32,155.20.230,173,166,173, 228.1 
71,208,241,32,0,20.132,178,133.179 

1320 DATA160,39.177,178,197,174,240,4,169,32 
„145,178,136,16, 243,88, 96,.120,166 

1330 DATA173,32,0,20,.132,178,132,180,133,179 
‚41.3,9,8.133,181,166,173,96,32 

1340 DATA0,20,132,157,132,175,133,158,41,3,9 
‚8,133,176,160,39,177,157.145,178 

1350 DATA177,175,145,180.136,16,245,96,32, v. 
20,133,179,132, 178, 160, 39.169,32 

1360 DATA145,178,136,.16,251,96,133,173,134.1 
71,132,175,169,100,133,174,165.171 

1370 DATA41,31,201,25.144,2.233,25,170,92,0, 
20,132.178,133,179,165,175,41,63 

1380 DATA201,40,144,2.233,40,168,165,173,41, 
15,201,6,144.4,233,6,208, 248,201 

1390 DATA3,208,.6.38.173,176,2,169,4,24,105, 8 
4,145,178,165,179,41,11.133,179 

1400 DATA169,113,145,170,165,173,101,171,69, 
175,170,165,173.101.175.69,171,168 

1410 DATA165,171,101.175,69.173,133,175.134, 
173,132,171,198,174,16,160,96 

1420 : 

1430 REM ZEICHENSATZ + M-CODE SPEICHERN 
1440 PRINT" {CLEARYM( 50} ":REM MONITOR EIN 
1450 PRINT" { DOWNS} 3" +CHR$ (34) +""TGM. CHAR" +CHR 
$(34)+",8,1000,1534”:REM SAVE 

1460 PRINT" {DOWNSYX":REM EXIT MONITOR 

1470 : 

1480 REM TASTENDRUECKE SIMULIEREN 

1490 POKE1319,19:REM HOME 

1500 FORI=1320T01324 

1510 :POKEI,13:REM RETURN 

1520 NEXTI 

1530 POKE239,6:REM 6 TASTEN 





ENDE DES LISTINGS 


<244> 
<171> 
<37> 
<166> 
<50> 
<57> 
<52> 
<250> 
<3? 
<139> 
x2543 
<1> 
<164> 
<a0> 
<230> 
<84> 
<88> 
<104> 
<95> 
<229> 
<33> 
<214> 
<228> 
45? 
<235> 
<157> 
<230> 
<22> 
<97> 


19757 
<251> 
<28> 

<115> 
<120> 
sı1l> 
<243) 
<241> 
<181> 
<149> 
<55> 

<18> 

x166> 
<199> 


7» 


<128> 
<203> 
<211> 
<238> 


<224> 
<a1> 
%253> 
<143> 
<140> 
<182> 
<173> 
<9> 
<30> 


me 
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€-16 LISTING + CHECKSUMMEN {0C V1.0) 


1 REM He 

2 REM * TME GALAXY MASTER * 

"3 REM 

4 REM * VERSION 1.0 ” 

5 REM Minnie 

6 REM * BY FRANK CRINS r 3 
7? REM * GRAF-MIRBACHSTR. 10 *+ 

8 REM * 4054 NETTETAL 1 a 

9 REM ee 

10 : 


11 CLR:6010773 


12 XD=WX% (WR) -WXR{WD) : YDWYS{WRI-WYRECWD) : V=X. 


D*XD+YD*YD: V-INT(SQOR(V)/16+.5) :RETURN 
13 FM=INT (WS% (WD) +WI% (WD) "2+RND(1) *10+10) 
14 FORI=0TOCP-1 :WR=CP% (1) 
15 IFW2% (WR) IFMTHENGOSUB169 :W2% (WR) =W2% (WR)- 
FM: W3=W3--FM: CSX (WD} =C5% (WD) +FM: I=CP 
16 NEXTI:RETURN 
17 2=0: FORWD-P1XLSC)TOP2% (SC) : LFCS% (WD) JOTHE 
NNEXTWD:: RETURN 
18 IFWCK (WD) >OTHENZ=Z+1 :NEXTWD : RETURN 
19 GOSUB13: IFFZ=2000RW3< 1THENWD=WN 
20 NEXTWD: RETURN 
21 FORI=DTOCP-1: IFWD=CP% CIJORW2K CP CI) )<1TH 
ENNEXTI:RETURN . 
22 WR=CP% (I) :FM=W2% (WR) : IFFM>VPTHENFM=VP 
23 GOSUB169:CI%(WD)=CSK(WD) +FM: VP=YP-FM:W2%( 
WR)-WZX (WR) - PM: W3=W3-FM 
4 IFWZX(WRI<LTHEND=D+L 
35 IFFZ-2000RD=CP ORWACITHENT=CP: J-W2:22=1 
IFVP< 1THENI=CP 
"NEXTI : RETURN 
V%=-1 : IFCD>SKTHENRETURN 
FORJ=OTOSK : IFCE% (J) =WDTHENJ=SK : NEXTJ : RETU 


IFCE%(J} "OTHENVE=J 

31 NEXTJ: IFV%=-LTHENRETURN 

32 CEKI VS) -WD:Z=10:W=-0:CDe=ch+l 

BET OIBERZESURSCHRAT] -BOSIBIZ LIEZIVTHENZ 
34 NEXTJ:CDR(VR) =W: CHR (V%) =2 : Vx%=0 :RETURN 
IFFÜ=OORW3< LORFZe200THENRETURN 

IFRNDB(1) >.ATHEN41 

SC=VH:GOSUBL7 :EX=EXOR1 : IFZ< PZ% (UH) THENRET 
URN 

38 VH=VH+1: IFVH>BTHENVH=0 

39 IFPZ%(VH)=OTHEN38 

40 E=E%XAND254 : RETURN 

41 VS=-RND(1) #545: IFVR+FZ>200THENVR=200-FZ 

42 IFVx&>FUTHENV&=FU 

43 FORAN=1TOV%:WD=FU&CINT{RNDL1I FU) ) : IFCSKL 
WD) 2OTHENNEXTAN: RETURN 

44 GOSUB13: IFFZ=2000RW3< LTHENAN=V% 

45 NEXTAN: RETURN f 

46 IFWZXLP)<20RWI< LORFZ=200THENRETURN 

47 2Z2=0 :D=-0:Z2L=-INT(RND(1)*11+.5) : IFZL=OORZL» 
6THENW1=0 :W2=CP-1 :5W=1:GOT054 

48 IFZL=10RZL=7THENWI=CP-1:W2=0:SWe-1 :G0T054 
49 IFZL=20RZL=8THENWI=-INT (CP/2) :W2=CP-1:9W=1 
:GOSUBS54 :W2=0 :SW=-1 : IFZZ=OTHEN54 

50 IFZL=30R2L=-$THENWI=INT(CP/2) :W2=0:SWe-1:G 
O9UB54:W2=CP-1 :5W=1.: IFZZ=-OTHEN54 

51 EFZL=-40RZL=1OTHENW1=CR-1 :W2=INT{CP/2) :5W= 
-1:G0SUB54:Wi=0 :SWal : IFZZ=OTHENS4 

52 IFZL=-5ORZL=11THENW1=0:W2=INTCP/2) :5W=e1:6 
OSUB54 : W1=CP-1 :SW=-1: IFZZ=DTHEN54 

53 RETURN 
54 FORJ=WITOWZ2STEPSW; IFW2KLCPR CT) J+CISKECPRLI 
}) >=OTHENNEXTJ : RETURN 

55 WD=CP& (J) :VP=ABS (W2% {WD) )-CS% (WD) :GOSUB21 
:NEXTJ : RETURN 

56 IFWI<1ORFZ=200THENRETURN 

57 FORWD-1TOWN: IFWC$WD)-P ORCSK (WD) JOTHENNE 
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<158> 
<204> 
<160> 
<4> 
<162) 
<109> 
<49> 
<233> 
<166> 
<68> 
<215> 


<207> 
<125> 
<96> 


<68> 
<10> 


<161> 
<209> 
<152> 
<190> 


<99> 
<239> 


<231> 
<45> 
<225> 
<246> 
<21> 
<86> 


<91> 
<127> 
<42> 

<223> 


<199> 
<35> 
<203> 
<56> 


<134> 
<94> 

<139> 
<116> 
<215> 
<112> 


<36> 
<72> 
<201> 
<160> 


<221>. 


<145> 
<220> 
<10> 
277 


<122> 
<195> 


<B2> 
<62> 


<106> 


PROCRAMLIE Ka 
DEERE Tel man 


XTWD:: RETURN 

58 IFW3%(WD)>KG ANDWS% (WD} >WI% (WD} *STHENNEXT 
WD: RETURN 

59 FM=WS% (WD) +INT(RND(1)*10+20) :Z=10:W=0 

60 FORI=OTOCP-1 

61 WR=CP% (CT) :GOSUB12: IF(FM+V*WIR{WD) J<CW2% {WR 
)THENIFZ>VTHENZ=V :W-WR 

62 NEXTI: IFW=OTHENNEXTWD : RETURN 

63 WR=W: FM=FM+WI% (WD) #Z:GOSUB169: WER WR) =W2% 
(WR)-FM:W3=W3-FM: C5% (WD) =FM 

64 IFFZ=2000RW3< 1 THENWD=WN : ZZ=1 

65 NEXTWD: RETURN 

66 IFEXAND1=1THENGOSUB160 

67 IFFZ=2000RW3< 1ORCIX 1THENRETURN 

68 22=0:D=0 :W2=5SK : FORI=OTOSK ; IFCEX(J) =»OTHENN 
EXTJ:GOTO072 

69 WR=-CDR(I).:WD=CEX (I) ı VPaW2% (UR)-WSK (WD) WI 
%(WD) *CH%LJ) -25 

70 IFVP<S1THENVP=ABS (VP) :WD=WR: GOSUBZ1 

71 NEXTI 

72 FORJ=0TOSK: IFCD% (J)< 1THENNEXTJ: RETURN 

73 IFWCRKLCD&LI) I)=PTHENCD=CD-1:CD% (I) =0:CEXLJ 
)=0:NEXTJ :RETURN 

74 IFFZ=200THENNEXTJ : RETURN 

75 WR=CDX(J} :WD=CEXCI) : FM=WS& (WD) +CHR (I) WIR 
(WDY+INT(RND (1) *10) +25 

76 VPrW2% (WR) -FM: IFVP< DANDNOT { (WS% LWR) >FN+KS 
JANDW3+CS% {WR) >FM) ) THENNEXT : RETURN 

77 CDXtII=0:CE%(I)=0:CD=CD-1 :GOSUB169 : IFW2X 
WR) ZOANDVP< OTHENW3=W3-W2% (WR) 

78 W2% (WR) =W2% (WR) -FM: IFVP>OTHENWI3=W3-FM: NEX 
'TJ: RETURN 

79 IPFZ=200THENNEXT)J : RETURN 

80 WD=WR : VP=ABS (VP} :GOSUB21 :NEXTJ : RETURN 

81 P=PN+1: IFWZ%{P) =0ORFZ=-200THENRETURN 

92 POKEXR.23:5Y5DL:POKEXR, 24: SYSDL:E%-D 

83 CHAR1,1,23, ZF$(P)+P$+NP$(PJ+"{SPACH . .." 

84 CP=8:FU=0 :W3=0 : FORW=-1TOWN 


. 85 _IFWC% (WI =OTHENFUX (FU)=W: FU=FU+1 :NEXTW:GOT 


090 

66 IFWCK(WI< >PTHENNEXTW:GOTO9O 

87 CPS(CP)=W:CP=CP+1:W2% (W) -WIX (WI (WIRLW) #9 

+K3) # (14 (WIE (WI=0) } 

88 IFW2%(W) JOTHENW3-W3+W2%(W) 

69 NEXTW 

90 BA=BA%(P) : LFBA=0THENGOSUB101 :BA=VP 

91 IFW2%(BA) >OTHENW3=W3-W2% (BA) 

92 W2%(BA)=WIX (BA) +WI%{BA) :W2%(O)=W2R (BA) -WN 

*K2:W2% (BA)=W2% (BA) -WN*K1 

93 IFW2%t0) >W9% (BA) THENW2% (0)=WS% (BA) 

94 IFW2%(BA) >WI% (BA)THENW2% (BA) =WS% (BA) 

95 WI%=W2%L0)-W2% (BA) : IFW3%C OTHENW3%=0 

96 IFW2% (BA) >OTHENWI=W3+W2% (BA) :GOTO99 

„7 WD=BA : VP-ABS (W2% (BA) )-CS%BA) : IFVP< ITHENS 

98 D=0 :GOSUB21 : IFZZ=1 AND (CAKORKS) -DANDCA<ITH 

ENRETURN 

99 IFWZ%(0) >0ANDPH>2THENPH=2 

100 ONPHGSOTO103,109,113,123 

101 VP=0: FORI=OTOCP-1:W=CP%(J) : IFWIR(VP)CWIX 

(W) THENVP=W 

102 NEXTJ:BA%(P)=VP: RETURN 

103 K5=0:K1=2.5:K2=1:KG=30 :605UB151 : IFZZ=1TH 

ENRETURN 

104 IFRND(1)< .7THENGOSUB106 :G0T046 

105 GOSUB46 

106 W=BA :GOSUB510:G0SUB17 

107 IFZ=PZ%(5C)THENPH=2 

108 GOSUB35 : GOSUBS6 :GOTOS6 

109 K5=20:Ki-5:K2=2.5:K6=30: IFWZ% (0) -OTHENPH 

=3:G0T0113 

110 GOSUB151 : IFZZ=1 THENRETURN 

u IFRND(1)X . 7THENGOSUB46 :GOSUB35 : GOSUBSS :6 
66 

112 GOSUB35 :GOSUBS6 : GOSUB46 : GOTOS6 


<150> 


<133> 


<il> 
<44> 


<239> 
<101> 


<110>3 
£40> 

235? 
<163> 
<115> 


<122> 


<233> 
<15> 
<93> 
<109> 


<202> 
<1177 


<124> 
<59> 
<209> 


«2507 
$122> 
«293 
<155> 
<62> 
<60> 
<128> 


<206> 
<113> 


<28> 

<199> 
<1377 
<180> 
%205> 


<218> 
<16> 

<205> 
<117> 
<148> 


<65> 


<83> 
<167> 
<253> 


<39> 
<122> 


<161> 
<33> 
<0> 
<116> 
<132> 
<110> 


<183> 
<107> 


<2B> 
777 


39 
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113 KS=60:K1=10:K2=5:KG=50:G0SUB151:IFZZ-1TH _ 173 J=1+239; IFIJ>LTHENJ=L+1 :60T0175 <180> 

i ENRETURN <170> | 174 IFMIDSCPRS,J.1)< 2" {SPACE} "THENJ=J-1 :60T0 

N 114 IFRND(1)< . ?7THENGOSUB46 : G0OSUB56 :GOTO116 <81> 174 <96> 
i | 115 GOSUBS6 :605UBA& <103> | 175 CHAR1,1.ZL,MID$ (PR$,1I,J-1) :2L=Z2L+1 <55> 

| 116 IFWZ%(P)<2THENPH=4 : RETURN '<238> | 176 IFJI<LTHENI=J+1:60T0173 <137> 
|| 117 IFW3< 1THENRETURN <212> | 177 PR$="": RETURN <85> 
"|| 118 IFW3>50 +WNTHENPH=4 <137> | 178 FU=0:FORF=-1T0200: IFFCKLF}< >JOANDFTSCF)<=T 
j| 119 W=0 ; FORI=OTOCP-1 : IFW2% (CPX{1))<1THENNEXT THENGOSUB183 <128> 
Mi I:RETURN <153> | 179 NEXTF:J=0:1=0: FORF=1T0200 : IFFC& {F})»OTHEN 
‚4 120 WR=CP& (I): FM=W2%{WR) :WeW+1: IFW=CPTHENW=0 <23> | 182 .x8> 
f 121 WD=CP% {W) :GOSUB169 :W2% (WR) =0:: IFFZ=200THE 180 I=1+1:1IFFU< >OANDFU& (J) =FTHENFURLJ) "I: Je) 

Y NI=CP <75%> | +1: IFJ=FUTHENJ=0 <1> 

if 122 NEXTI:RETURN <116> | 181 FC&tT)J=FC&(F) ; FIXCI)=FT%F) :FD&CIN-FDSF 

123 KS=B0 :K1=13:K2=7 :KG=100:5K-8 <146> |: ):FS%(1J=FS%{F) : IFI< >FTHENFCK (F) =0 <244> 

124 CAR=CAKORKR: LFCAX>OTHEN129 <61> 182 NEXTF:FZ=I: RETURN <69> 

125 IFWZ%(11) >0THEN129 <31> i83 W»FD&F) :DE=WS&{W) :AK=FS%(F) :P=FC%&{F) :PR 

126 IFRND(1}>.4THENRETURN <251> | $="": IFFU>IOTHEN1B8 <137> 

127 FORI=1TOPN: IFCT%( 1) >INT(WN/20+1) THENK%=K 184 IFP=WC% (W) ORWCK(W) >L1THEN188 ,‚<253> 
| %ORCK I) :WD=BA% I) :GOSUB28 <223> | 185 ZZ=0:FORI=1TOPN+1: IFW=BA% ( I) THEN2Z=1 <14> 
e| 128 NEXTI:IFK%=0OTHENRETURN <140> | 186 NEXTI: IFZZ=OTHEN188 <181> 

\ 129 ZP=0:D=0 : FORWD=1TOWN : P&=CK (WCK{WD) ) : IFPR% 187 I1FPH<ATHENFU& (FU) =F: FU=FU+1: RETURN <B> 

E| =QANDWCK (WD)< >11 THEN140 <72> 188 IFP=PN+1THENCS%({WI=CS%WI-FS%(F) sIFCIR(W 

| 130 IFCAXANDP%< >P%THEN140 <185> ji )<SOTHENCSK(WI=O <59> 
133 Z=10:W=0:FM=W5% (WD)+INT(1O*RND(1}) +25 <185> | 189 FZ=FZ-1:FC%(F)=0:1IFAK< 1 THEN234 <189> 
132 FORI=-OTOCP-1 :WR=CP%LI) :GOSUB12: F=FM+WIK ( 190 SCNCLR; COLOR1.8,7: PRINT" (C040}"; <208> 
WDY*V <28> 191 PRINT'{RVSON SPACE11}SPACEtL SPACE} (SPACE 
133 IF(V<ZJANDE (W2% (WR) >F)OR(WSSCWR) >F+KS AN }CONTROLLER (SPACELI RVSOFFY”; s14> 
DW3+C5% (WR) >F}) ) THENZ=V :W=WR <189> } 192 PRINT" CU49}" :COLOR1, 2,5 <206> 
134 NEXTI:IFW=-OTHEN140 <172>.| 193 CHAR1,15.3, "WELT; ":PRINTW <149> 
135 FM=FM+WI%(WD) *Z: WR=W: GOSUB169 : VP=W2% (WR) 194 IFWC&{W) >L1THEN278 <212> 
=FM; ZPel <143> | 195 IFP=WC% (W) THEN259 <219> 
136 IFW2%(WR) >0ANDVP< OTHENWI-WI-W2R (WR) <59> 196 GOTO207 <29> 

A| 137 W2% (WR) =W2% (WRI-FM: IFVP>ÜTHENWI=WI3-FM:GO 5 197 I=0:COLOR4,3.2:2L=8: A=AK:D=-DE:509UB199: A 

ll . TO140 <212> | K=A: RETURN <168> 

) 138 VP=ABS {W2% (WR) )-CS%{WR) : IFVP< ITHEN140 «ı124> | 198 I=0:COLOR4.6.2:ZL=10:A=DE:D=AK:GOSUB199: 

a 139 W=WD :WD=WR ; GOBUB21 :WD=W <219> | DE=A: RETURN <91> 
l 140 IFW3< LORFZ=200THENWD=WN ;ZZ=1 <134> | 199 I=I+1:IFRND(0) >RND (0)ORA< 1 THENRETURN <153> 
= 141 NEXTWD <137> | 200 A=A-1:IFZZ=0THEN: CHAR1.,25,ZL,"":PRINTA;" 

1 142 GOSUB145::G0SUB46 : S0SUB56 :GOSUB156 <65> {LEFT SPACE}" <26> 
| 143 FORP=1TOPN: IF{K%ANDCK (P)=CK(P) JAND (WZ&P 201 IFI<DTHEN199 <207> 
)=0) THENK%=K%-C% {P) <1468> | 202 RETURN <B8> 
144 NEXTP :CA%=0: RETURN <131> | 203 ZZ=1: AH=AK:GOSUBL197:H=AK:AK=AH:GOSUB198: 
145 IFCA=DORW3< 1ORFZ=200THENRETURN <247> | AK=H:COLOR4,3,2:CHAR1,25,8,"" <145> 
146 W2=CA-1:CA=0 : FORK=7TO1STEP-2 : FORI=DTOW2: 204 PRINTAK:"{LEFT SPACE} " :COLOR4,6,2:CHAR1, 
F=CA% (J) :WD=FD%(F} <145> | 25,10, "":PRINTDE; "{LEFT SPACE} " :IFAK<ATHEN23 
147 IF{WI&({WD)<JJOR(PH<AANDWD=BA)THENNEXTJ,K ? <130> 
:RETURN «372 205 IFDESITHEN228 <64> 
148 VR=W2X(WD) +CS% (WD}-FSSLF) :IFVPSOTHENVPAR—— 206 G0T0224 <33> 
BS(VP) :GOSUB21 <i31> | 207 IFDE<ITHEN256 Ä <72> 
149 NEXTJ: IFFZ=2000RW3< LORD=CPTHENK=D <197> | 208 IFP< >11THENGOSUB292:6G0T0211 <102> 
150 NEXTK:RETURN <148> | 209 GOSUB296 :ZL=ZL+1:CHAR1,2,ZL, "":PRINT'"ALA 
151 IFCA%=DANDCA=OTHENZZ=0 : RETURN <933 RMi SPACE} AUF { SPACEYWELT"W I": 2L=2L+1 <157> 
| 152 WI=W34+W3%:W2% BA) «W2% (0) :D=0 <51> 210 ONINT(RND(0) *3+1)G0SUB298, 299, 355 <162> 
| 153 IFCA®>OTHENGOSUB124 : 22-1: RETURN <2> 211 ZL»=ZL+1:60SUB306 :505UB172:2L=ZL+1 <75>% 
| 154 IFCA>OTHENGOSUBL45 : IFFZ=2000RW3< 1THENZZ= 212 PR$=MID$ (STR$ (DE) , 2) : IFWC% (W) «-OTHENPR$=P 
1:RETURN <177> | R$r" (SPACE) NEUTRALE SPACH}RAUMSCHIFFE" :GOTO2 
| 155 ZZ=0:RETURN <245> | 15 <22> 
156 IFZP=1THENRETURN <84> 213 IFWCA(W)=11THENPRS=PR$+" (SPACHIPIRATENSC 
| 157 FORWD=1TOWN : P%=C% (WCK (WD) ) : IFP&=OANDWCK ( HIFFE":60T0215 <216> 
WDY< >L1THENNEXTWD : RETURN <102> | 214 PR$=PR$+"tSPACEYRAUMSCHIFFE{ SPACE}DESISP 
158 IFCA&ANDP&< >P%THENNEXTWD : RETURN «22> ACE) "+PS+NPE(WCKW)) <10> 
159 GOSUB28 :WD=WN : NEXTWD : RETURN <159> ] 215 ONINT(RND(0) *4+1)60T0216,217,219.219 <193> 
160 FORI=PI%1VH)TOP2&(VH) : IFWCK(IJ=OTHENWD=T 216 PR$=PR$+" { SPACEYSTEHEN{ SPACE} ZUR { SPACEIV 
:GOSUB28 : IFV%=-1THENI=WN <249> | ERTEIDIGUNG( SPACE} BEREIT!” :GOTO220 : <89> 
161 NEXTI:RETURN <155> | 217 PR$=PR$+"4 SPACE STEHEN { SPACE} ZUR{ SPACE}A 
162 CHAR1,1,24," [TASTE] ” <84> | BWEHR{SPACE} BEREIT!" :GOTO220 <146> 
| 163 POKE239.0:WAIT239,1:G6ETIN$ : RETURN <68> 218 PR$=PR$+"{SPACE}WERDEN t SPACEISICHLSPACH 
7 164 1=0:2Z=D <5> TAPFER { SPACE} ZUR { SPACE} WEHR ( SPACE)SETZEN. ":G 

| 165 I=I+1:1FI>WNTHENRETURN <62> 0TO220 <182> 
166 IFWCK(I)-PTHENZZ=1:RETURN <211> | 219 PR$-PR$+"( SPACEIVERTEIDIGEN ( SPACE} DAB SP 
|\ 167 GOTO165 j <8> ACEYSYSTEM." "  <1B1> 
| | 168 IFFZ=200THEN: CHAR, 20,24, "RAUMLOTSENSTRE 220 GOSUB172:60SUB162:FORI=1TO21:POKEXR,4:PO 
| IK" :PO%t0)=PN:G0TO163 <176> | KEYR, 24:POKEAR, 32:3YSDW:NEXT <857 
| 169 F=FZ+1:WS% (WR) =WS% (WR) -FM: FCX (F) =P: FDX{F 221 CHAR1,1,8. "ANGREIFER (SPACEZI: SPACE" +NP 
)=WD: FS%P)=FM <«132> | $t{P} <203> 
|| 170 GOSUB12:FTS(F)=T+V:FZ=F:RETURN <80> | .222 CHAR1.,1,10, "VERTEIDIGER: { SPACE} "+NP$ (WC* 

171 2L=5 2135> | (m) j ‘ <68> 
) 172 I=1:L=LEN(PR$) «141> | 223 CHAR1,25.8,;5TR$(AK) :CHAR1,25.10,STR${DE) <117> 
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224 IFRND(0)< ‚STHEN203 

225 ZZ=0: IFRND{0)< 100/ (AK+DE+1) *AKTHEN235 

226 GOSUB197: IFAK<1THEN237 

227 GOSUB198 : IFDE< JOTHEN224 

228 ZL=12:COLOR4,1:PR$="DIE(SPACE) FLOTTE SPA 
CEYDESt SPACE} " 
‘229 IFP=11THENPRS=PR$+ "PIRATEN" :60T0231 

230 PR$=PR$+P$+NP$(P) 

231 PR$=PR$+" ( SPACE}HAT ( SPACEIDIE( SPACEYWELT 
»+STR$ (WI +" ( SPACEYEROBERT. ” 

232 GOSUB172:603UB162:WSX{W)=AK :WZR.(WCK (WI J= 
WZELWOKLW) I) -1:WCR(W)=P 

233 WZRWCKLW) I -W2K(WCK(W) )+1: IFP=PN+LTHENIF 
WIS(BAX{P} J<WIR (WI) THENBA% (P)=W 

234 . RETURN 

235 GOSUB198: IFDE< LTHEN228 

236 COSUB197 : IFAK< >OTHEN224 

237 ZL=12:COLOR4,1:0N(RND(0) *3+1)GOT0238, 242 

‚248 

238 PR$="WELT"+STR$ (W) +" SPACE)HAT{ SPACHISIC 
Hi SPACE) ERFOLGREICH SPRACH)“ 

239 ON{RND(0)*3+1)G0T0240,241 

240 PRE=PR$+"ZURi SPACE) WEHR( SPACH)GESETZT. 
6070255 

241 PR$=PR$+"VERTEIDIGT. “ :GOT0255 

242 PR$="WELT"+STRE(W)+" LSPACEIHATLSPACH " :0 
N{RND (0) *4+1)G0T0243, 244. 245,246 

23 PR$=PRS+"DEN{ SPACEI ANGRIFF SPACE" :GOTO2 


204 PRE=PR$+"DIEL SPA CEYATTACKEt SPACE} " :GOTO2 


205 PR$=PRS+"DEN SPACE) UEBERFALL SPACE} " :G 

247 

246 PR$=PR$+"DIE{ SPACE} ANGREIFER SPACE)” 3 
2 PR$=PR$+"ERFOLGREICH{ SPACE) ABGEWEHRT. ":G 
0T0255 

248 ON(RND(0}*3+1)1G0T0249, 250.251 

249 PR$=PR$+"DERt SPACE} UEBERFALL* :G0OTO252 
250 PR$=PR$+"DIE{ SPACE} ATTACKE” :GOT0252 

251 PR$=PR$+"DERt SPACE) ANGRIFF" 

252 PRS=PR$+" { SPACEIDESt SPACE) " : IFP=11THENPR 
-$=PR$+ "PIRATEN" :GOTO254 

253 PR$=PR$+P$+NP$(P) 

254 PR$=-PR$+"  SPACE)}WURDE( SPACE) ERFOLGREICH( 
SPACE}ABGEWEHRT.“ 

255 GOSUB172:WS% (WI) =DE:GOTO152 

256 GOSVB292: ZL=ZL+1:ON{RND (0) *2+1)60T0257,2 
58 

257 PR$="HANDSTREICH SPACE) GELINGT! " :60T0232 
258 PR$="WELT”+STR$(W) HF" (SPACE) ERGIBT (SPACE) 
SICH{ SPACE)}WIDERSTANDSLOS! ":60T0232 

259 WSK(W)=WIX(W) +AK :ONRND (0) *3+1)G0T0260.2 
62,267 

260 PR$=PS+NP$ (P)+"(SPACEYHAT{ SPACH}SEINELSP 
ACE}YWELT{ SPACEYMIT"+STR$ (AK)+" (SPACEYSCHIFFE 
Nt SPACE) VERSTAERKT. " 

261 GOSUB171:G0TO162 

262 GOSUB295 : ZL=ZL+1:PR$="ES{ SPACEHYHANDELT{S 
PAGE) SICH{ SPACE}UM{ SPACE)" 

263 ONINTLRND(O) *2+1)G0T0264, 265 

264 PR$=-PR$+"EINELSPACE}VERSTAERKUNGSFLOTTE" 
:G0T0266 

265 PRE=PRS+ "EIN SPACE) VERSTAERKUNGSKONTINGE 
NT" 

266 PR$=PR$+"{ SPACH)DES( SPACE} "+P$+NP& {P} +" 
“.G0T0277 

267 GOSUB296.:2L=2L+1 :PR$="DAS{ SPACEISYSTEM(S 
PACE“" 

268 ONINT (RND (0) *2+1)60T0269, 270 

269 PR$=-PR$+"HEISST {SPACE} " :V%=1:60T0271 

270 PR$=PR$+"BEGRUESST( *VR=D 

271 ONINT{RND(0) *3+1}60T0272,273, 274 

272 PRS=PR$+"DIEt SPACE} VERSTAERKUNG" :60T0275 
273 PR$=PR$+ "DIE SPACE} VERSTAERKUNGSFLOTTE" : 
GOTO275 

274 PR$=PR$+"DAS{ SPACE} VERSTAERKUNGSKONTINGE 


375 PR$=PR$+"  SBACEIDES{ SPACE} "+P$+NP$ (P) 
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<73> 
<43> 
<A6> 
<48> 
<144> 
<52> 
«293 
<38> 
<11> 
<242> 
<120> 
<33> 
<80> 
<5> 


x38> 
<117> 


<80> 
<206> 


2373 
9» 
<4> 


<77 
s67> 


<118> 
<131> 


<103> 


<127> 
<204> 


<36> 
x527 


<41> 
<208> 


<182> 
<85> 


«2443 
<84> 

<168> 
<«127> 


<83> 
<236> 


<31l> 
<205> 
<61> 
<34> 
<240> 


%45> 
<103> 


- 6144> 


<126> 
<203> 


<176> 
<130> 


PROGRAMME Ba 


276 IFV%=1THENPR$S=PR$+" (SPA EEIWILLKOMMEN" 


"277 GOSUB172:G0T0162 


278 GOSUB296 :ZL=2L+1 
279 PR$="DIE{ SPACE}YNAEHERKOMMENDE( SPACE} PLOT 
TE{ SPACEYDROHT (SPACE) IN{ SPACE) EINEI SPACE) SUP 
ERNOVA {SPACE} ZU SPACE}FLIEGEN! * 

280 GOSUB172:FM=AK 

281 WD-INT(RND(0) «WN+1) : IFWD=WTHEN281 

282 ONINT(RND(0} *3+1)GOT0284, 283,285 

283 PR$="DER{ SPACE} NAVIGATIONSCOMPUTER( SPACE 
YLAEUFT ( SPACE} AMOK ! { SPACE) " 

284 PR$=PR$+"DIE SPACE) PANIKSCHALTUNG 4 SPACE) 
DES SPACE} NAVIGATIONS" :GOTO286 

265 PR$-PR$+"DIE{ SPACEINOTSCHALTUNG ( SPACEIDE 
St SPACEINAVIGATIONS" 

286 PR$=PR$+"COMPUTERS{ SPACE} ZWINGT{ SPACE}DI 
Ei SPACE} FLOTTE SPACEYAUF ( SPACE) EINEN SPACE)N 
EUEN( SPACEYKURS. (SPAGE)ZIELWELT: " 











"287 PR$=PR$+STR$ (WD} : ZL=ZL+1 :G0SUB172 


288 WR=W:GOSUB12:FCR{F)=P : FÜR (F)=WD: PERF) =A 
K: FTSCP)=T+V:FZ=RZ+1 
289 IFP=PN+1THENCS% (WD) =CI% CWD) +FM 


290 IFP< YPN+1ANDWCK (WD) =PN+1THENCAS (CA) =F: CA 


=CArl 

291 G0TO16Z 

292 ON(RND(O) *3+1)G0SUB293, 294,295 :G0SUB162: 
POKEXR. 24:5Y3DL :RETURN 

293 GOSUB312:ZL=ZL+1:60T0355 

294 GOSUB327 :ZL=ZL+1: V&=0:GOT0343 


‘295 GOSUB331 :ZL=ZL+1 :GOTO355 


296 ON(RND{0} *3+1)G05UB312.331.297:603UB162: 

POKEXR, 24: SYSDL : RETURN 

297 GOSUB327 :ZL=ZL+1:V%=1:6070343 

294 GOSUB303 : PR$=PR$+" { SPACE}GREIFEN{SPACEIA 

N!" :60T0172 

299 ONINT{RND(0) *2+1)G0T0300, 301 - 

300 PR$="ANGRIFF" :GOTO302 

301 PR$="UEBERFALL" 

302 PR$=PR$+".{ SPACE} DURCH{ SPACE} " :GOSUB303:P 

R$=PRE+" 1" ,G0T0172 

303 ONINTI{RND(0) *2+1)G0T0304,305 

304 PR$-PR$+"PIRATEN" : RETURN 

305 PR$=PR$+"PIRATENSCHIFFE" : RETURN 

306 IFRND(0)< .STHENRETURN 

307 PR$="WELT"+5TR$ (W) 

308 ONINT{RND(0) *3+1)G0T0309, 310,311 

309 PR$=PR$+" ( SPACE} GEHT{ SPACE) IN{ SPACE) VERT 

EIDIGUNGSBEREITSCHAFT.. ” : RETURN 

310 PR$=PR$+" (SPACETBEREITET {SPACE} VERTEIDIG 

UNGSMASSNAHMEN ( SPACE) VOR. " : RETURN 

311 PR$=PR$+" {SPACE} BEREITET SPACE}SICHLSPAC 

EYZURt SPACE} VERTEIDIGUNG ( SPACEYVOR. ” ;RETURN 

Die ENSANCHUNFEATIEL SNZLEENE| SPACE) “ :GOT 
2 

313 IFAKD2SOTHENPR$="RIESIGE( SPACE)" :60T0322 

IFAK BISOTHENPRS-"ENORM( SPACE} GROSSE SPAC 
".GOTO3 

















315 IFAK>LOOTHENPR$= "GROSSE { SPACE)" :6070322 
316 IFAKISOTHENPRS="STARKE( SPACE) " :GOT0322 
317 IFAK>30THEN322 

318 IFAK>2OTHENPR$="KLEINE{ SPACE} " :G0OTO322 
319 IFAK>LOTHENPR$="MINI" :GOTO322 

320 IFAK>STHENPR$="MIKRIGE ( SPACE)" :GOTO322 
321 PR$="WINZIGE(SPACH} " 

322 ONINT(RND(0) *2+1)G0T0323, 324 

323 PR$="EINE( SPACE) "+PR$+"FLOTTE(SPACH ":60 
710326 


324 IFLEN(PR$)< >OANDLEN (PR$)< >4THENPR$S=LEFT$ 

{PR$, LEN PR$I-1)+"RiSPACH}" 

325 FR$="EIN{ SPACE} "+PR$+"KONTINGENT ( SPACE} " 

326 PR$=PR$+"VON’+STR$ (AK) +" SPACE)SCHIFFEN{ 

SPACE} NAEHERT { SPACE}SICH{ SPACE}DEMIi SPACE} SYS 

TEM' :GOT0171 ° 

327 ONINT (RND(0) *2+11G0T02283,329 

Een PR$="EINE{ SPACE} NOCH ( SPACEYUNBEKANNTE{ SP 
ACEYFLOTTE" :GOTO339 

329 PR$="EIN{ SPACE}NOCHL SPACE} UNBEKANNTES {SP 

ACEYKONTINGENT" 





<144> 
<147> 
£41> 


<72> 
297 
<219> 


. £127 


<42> 

<155> 
<1097> 
<210> 
1297 


<209? 
<216> 


<113> 
<121> 


<125> 
<84> 
<44> 
<88> 


«169? 


643 


$214> 
<212> 
<182> 
<162> 


<178> 
<104> 
<30> 

<191> 
<192> 
<74> 

“114> 


g214> 
£118> 
<154> 


<111> 
<$158> 


<211> 
<1527> 
<251> 
<238> 


"£245> 


<140> 
<101> 
<86> 
<153> 
<14> 
<108> 
<138> 
<66? 
<84> 
<22B> 


<2> 


41 





DREHTE 





BEE PROERV/ALILIE 


330 PR$=PR$+" { SPACE} NAEHERT{SPACE}SICH{ SPACE 

}DEM{ SPACE} SYSTEM." :G0T0171 

331 PR$="DIE{ SPACE) RAUMUEBERWACHUNG{ SPACE)": 

ONINT (RND (0) *4+1)G0T0332,333, 334, 335 

332 PR$=PR$+"MELDET” :G0T0336 

333 PR$=PR$+"SICHTET” :GOTO336 

334 PR$=PR$+"ERSPAEHT" :GOT0336 

335 PR$=PR$+"ENTDECKT“ 

396 PR$=PR$+"( SPACE}EINE" 

337 ON({RND(0) *2+1)G0T0330,339 

338 PR$=PRE+"N"+STR$ (AK) +" ( SPACE}EINBEITEN{S 

PACE} STARKEN { SPACH}KONTINGENT, { SPACE}YWELCHER 

SPACE" :GOTO3AO 

339 PRS=PRS+STRS (AK) +" { SPACE? EINHEITEN SPACE 

ISTARKE{ SPACE} FLOTTE, { SPACEYWELCHE( SPACE)" 

340 ON{RND (0) *2+1)G0T0341,342 

341 PR$=PR$+"SICH{ SPACE}DEMI SPACEISYSTEMI SPA 

CE}NAEHERT. " :GOTO171 

342 PR$=PR$+"IN{ SPACE} DAS{ SPACE}SYSTEM{ SPACE 

}EINDRINGT.":GOTO171 

343 ON{RND (0) *2+1)G0T0344, 345 

344 PR$="DIE{ SPACE} FLOTTESPACH}" :GOTO346 

345 PR$="DER{ SPACE}KONTINGENT{ SPACE) " 

346. ON{RND(0) *4+1)G0T0347 ,348, 349, 350 

347 PR$=-PR$+"IST"+3TR$ (AK) +" (SPACE}EINHEITEN 
{ SPACE} STARK" :G0T0351 

348 PR$=PR$+"BESTEHT ( SPACE} AUS”+STR$ (AK) +8 

PACEYSCHIFFEN" :G0T0351 

349 | PR$=PR$+"UMFASST"+STR$ (AK) +" SPACEISCHIF 

FE" :60T0351 

z u EL NEREETTTERE (AK)+" ( SPACE)EINHE 

351 IFV%=-1THENPRS=PR$+" ." :GOTO172 

352 ON{RND (0) *2+1)G0T0353, 354 

353 PR$=PR$+" { SPACEYUND { SPACE} " :G0T0358 

354 PR$=PR$+". {SPACE} " 

355 ON{RND{0)*2+1)G0T0356 , 357 

“£ PR$=PR$+"DIE{ SPACEYFLOTTE{ SPACE} " :60T033 

357 PR$=PR$+"DER{ SPACE} KONTINGENT{ SPACE)" 

358 ON{RND(0) *2+1)G0T70359, 360 

359 PR$S=PR$+"STEHTi SPACE}YUNTER" :60T0361 

360 PR$=PR$+"UNTERLIEST" 

361 PR$=PR$+" {SPACE} DER SPACE," 

362 ON{RND (0) *4+1)G0T0363, 364.368 ,366 

369 PR$=PR$+"BEFEHLSGEWALT SPACE} " :60T0367 

364 PR$=PR$+"LEITUNG{ SPACE} " :G0T0367 

365 PR$=PR$+"AUFSICHT{ SPACE) " :GOT0367 

366 PR$=PR$+"KONTROLLE{ SPACE} " 

367 IFP=11THENPR$=PR$+"EINES{ SPACE) PIRATEN. " 
:GOT0172 

a PR$=PRS+" VON SPACE} "+P$+NP$ {P) +". ":60TO1 

3659 V-0 

370 GOSUB163: IFINS-CHR$ (29) THENV%=1:GOTO408 

371 IFIN$=CHR$ (157) THENV%=1:G0T04210 

u IFIN$="3"THENGOSUB641 :G0SUBA23 : V%=1 :RETU 

373 IFINS="V"THENGOSUB729 :GOSUB425 : V%=1 :RETU 

RN 

374 IFIN$="H"THENGOSUB624 :60T0425 

375 IFIN$="F'THEN:CHAR1,1.24, "FLOTTENZAHL: "+ 

STR$ (FZ) : V%=1:60T0163 

376 IFIN$="Z"THENGOSUB404: V%=1 : RETURN 

377 IFEN$=CHR$ (145) THENGOSUB412 :G0OT0369 x 






































:378 IFIN$=CHR$ (17) THENGOSUB415 :GOTO369 


379 GOT0392 

380 VO 

381 GOSUB163 

382 .IFIN$=CHR$ (13) THENRETURN 

383 IFIN$<SPO"ORIN$>"9"THENV=-1 :RETURN 

384 VeV#10+VAL(IN$) :GOT0381 

385 POKEXR, 23:5YSDL:POKEXR, 24:SYSDL:CHARI,.1. 
23,2F$(P) +P$+NP${P}) +" SPACE}VON{ SPACHI WELT" 
386 V%=0:G05UB369 : IFV%=-1THENRETURN 

387 IFV%=1THENI85 

388 IFVDOTHEN392 

389 POKEXR, 23:5YSDL:POKEXR, 24:5YSDL 


42 


<224> 


%241> 
<237> 
<208> 
<277 

<61> 

<208> 
<222> 


<191> 


<211> 
<197 


223 
<54> 
<124> 
<10> 
<45> 
£184> 
x22> 


6105> 


:£139> 


<172> 
<15> 
<131> 
<227> 
<73> 
x236> 


<59> 
129> 
<169> 
<202> 
£159> 
<220> 
<12> 
8447 
<32> 
X46> 
<155> 


<46? 
<189> 
<1B8> 
<777 
<103> 
x18> 


<121> 
<138> 


<226> 


<141>. 


<124> 
<90> 

<219> 
<1997> 
<219> 
<20> 

<158> 
<190> 


<58> 
<137> 
<211> 
<35> 
<137> 


390 CHAR1,1,23.ZF$(P)+"EINGABE{ SPACE}BEENDEN 
{SPACB} (J/N) Pi SPACE} " :GOSUB727: IFIN$="I"THEN 
RETURN 

391 GOTO385 

392 IFV< 10RV>WNTHENGOSUB418:60OT0395 





.393 IFWC%(V)< >PTHEN: CHAR1,1,24, "NICHT{ SPACE} 


IHRE{ SPACE}WELT! " :GOSUB163:60TO385 

394 WR=V:CHAR1,29,23, "NACH{ SPACE}WELT" :GOSUB 
380 

395 IFV< 10RV>WNTHENGOSUB418 : GOTO385 

396 IFV=WRTHEN:CHAR1,1.24, "NICHT( SPACEIMOEGL 
ICH} " :60SUB163:60T0385 

397 WD=V:CHAR1,1,24, "SCHIFFE" :GOSUB380 

398 IFV<1THEN:CHAR1,1.24, "GEISTERFLOTTEN{ SPA 
CEYNICHT{ SPACE} ERLAUBT! " :GOSUB163:GOTG385 
399 IFV>WS%SLWRITHEN:CHAR1,1.24, "ZUVIELE(SPAC 
ZYSCHIFFE! " :G0SUB163:G60T0385 s 
400 FM=V:GOSUB168 : IFWCK (WD)< >PN+LTHEN4D2 











401 CT%{P)=CTR%(P) +1: IFCA<SOTHENCAR(CA)=F:CAR 


-CAKORCH LP) : CA=CA+1 

402 IFFZ< 200THEN385 { 

403 RETURN 

404 CHAR1,1,24, "ZEIT?" :GOSUB380 : IFV< LORV>WNT 

HEN418 

405 WR=V:CHAR1,29,23, "NACH SPACE) WELT" :GOSUB 
380: IFV< 1ORY >WNTHENA18 

406 WD=-V:GOSUB12:CHAR1,1,24, "TRANSFER" +STR${ 

Vrı)+"( SPACE} JAHRE" 

407 GOT0163 

408 Z1=21+15: 1IFZ1+15>WNTHENZ1=WN-14 

409 GOTO425 

410 21=-Z1-15: IFZ1<1THENZ1=1 

411 GOT0425 

412 IFZ1=1THENRETURN 

413 Z1=Z1-1:W=21:2L=6:POKEAR, 93:POKEYR.6:POK 

EXR. 20:SYSUP:GOSUB432 

414 PRINTZF$(P) ;CHR$ (19) :RETURN 

415 IF21+15>WNTHENRETURN 

416 Z1=Z1+1:W=21+14:ZL=20:POKEAR, 93: POKEXR. 6 
:POKEYR. 20:SYSDW: GOSUB432 

417 PRINTZF$ (P} ;CHR$ (19) : RETURN 

418 CHAR1,1,24,. "WELT SPACE}NICHT{SPACH)INSP 

AGE}DIESER{ SPACE} GALAKXIS!" ;GOSUB163 

419 POKEXR,. 23:5YSDL:POKEXR, 24:SYSDL: RETURN 

420 V%=0 : IFINT{T/4}=T/ATHENVR-1 

421 FORW=1LTOWN 

422 IFV%=DANDWCK (W) =OTHENA424 

423 WS (WI=-WSELWI WIR (W) 

424 NEXT:RETURN 

425 SCNCLR: COLOR1,2,5:CHAR1,93, 2, "JAHR{ SPACE} 
:’+STR${T) :PRINT 

426 PRINT" (SPACE SU SU S#6 CR St10 CR 5*7 CR 9% 
IS}. 

427 PRINT"{SPACE S- SPACE}YWELT{SPACE S- SPAC 

EIBESITZER{ SPACE S- SPACE}PROD. {SPACE S- SPA 

CEIYSCHIFFE{SPACE S-}" 

428 PRINT"{SPACE CH S*6 S+ 810 S+ 577 5 & 
3 .cm" 

429 FORI=Z1TOZ1+1A:PRINT"{SPACE S- SPACEE 3= 
SPACEIO S- SPACE? S- SPACES 5-)" NEXT 

430 PRINT"{SPACE SJ S*6 CE 3*10 CE S"2 CE 8% 




















9 SK) ” 
431 ZL=5:FORW=Z1TOZ1+14:2L=ZL+1:G05UB432 :NEX 
TW:RETURN 

432 CHAR1,4,ZL,ZF$ (WC (W) J+RIGHT$ (STR$ (W) „2) 
433 IFWCR (W) «OTHEN:CHAR1,10,ZL, "mm" :RE 
"TURN 


434 IFWC$(W) =12THEN: CHAR1,10,ZL,5N$ : RETURN 
435 CHAR1,10,ZL,.NP${WC% (W} } :SP»24-LEN (STR$S{W 
I&(W))) 

436 IFWIRLW)< >OTHENCHAR1,SP,ZL,STR$LWIX (WI); 
ELSECHAR1,9P+1,2L, "1517" 

437 1FW2% (W) «OTHEN:CHAR1,29,ZL, "-{SPACEIFREI 
tSPACEY-" :RETURN 

439 SP=37-LEN(STR${W2&W) ) } :CHARL, SP, ZL,STR$ 
(W2% (W) ) : RETURN 

439 POKEXR, 23:5YSDL ; POKEXR, 24:SYSDL:P=11:1FF 
Z=200THENRETURN 





<124> 
<243> 
<40> 

<168> 


<103> 
<43> 


<22> 
<114> 


<166> 


<20> 
£152> 


<109> 
<104> 
<34> 
<1> 
$110> 
<200> 
<241> 
<43> 
<245> 
%3> 
<247> 
<248> 
<150> 
<214> 
<58> 


<60> 
8217> 


<2517 
<101> 
£100> 
<15> 

<203> 
<20>° 
<73> 

<176> 


<36? 


<181> 
<37> 
£34> 
<13> 


<221> 
<116> 


<125> 
<42> 


<156? 
<187> 
<175> 
<126> 
<B1> 


C16 - SA 5/89 


440 TIFL[WN-W2%(O)-W2% (12) ) /(PN+1)*.25) >eWZ%( 
PN+1) THENGOSUB456 : TP=TP+1 

441 IFWZ%(P)=OTHENA454 

442 VS=0: FORI=1TOWN: IFWC& (I) =PTHENVS=VS+WS%{ 
I)+WIX(I) 

443 NEXTI 

444 IFVS< 100+WNTHENGOSUB454 :GOT0446 

445 TP=0 

446 AN=2*INT{RND(1)*WZ&LP)+1) :1=0:J=0: IFAN+F 
Z>200THENAN=200-FZ 

447 22=0:G0SUB165: IFZZ=-OTHENI=0.:G0T0447 

448 WR=I: IFI+1>WNTHENI=0 

449 IFWS% (WR)<20THENA60 

450 WD=INT{RND(1) *WN+1} : IFWD=WRTHEN450 

451 IFWC&WD)=PN+1THENIFRND(1)< .BGOT0450 

A452 FM=INT(WS% (WR) *RND(1) +1} :GOSUB169 

453 6070469 

454 TP-TP+1; IFTR>SPTTHENTP-0 :GOSUB456 

455 RETURN : 

456 AN=INT(RND(1) «WN/30+1) :J=1: IFAN+FZ2>200TH 
ENAN=200-FZ 

457 WD=INT{RND(1) *WN+1) : IFWC® (WD} =PN+1THENIF 
RND{1)< ‚BGOT0457 

458 FM=INT (80*RND (1) +30) «FT=T+INT(RNDL1) *4+1 
):FZ=PZ+1 

459 FCA (F2)=P:FS%{FZ)=FM:FT%{FZ)=FT:FDR(FZ) = 
WD 


460 AN=AN-1: IFAN-OTHENRETURN 

461 IFJ=OTHEN447 

462 6070457 

463 IFWZ% (12) =WNTHEN467 

464 IFWZ% (PN+1)=OANDWZ& (P}=WN-WZ%. (12) THENC=P 
:GOSUB470 : IFZ2=OTHEN472 

465 IFWZ%{PN+1)=WN-W2% (12) THENC=PN+1 :G03UB47 
0: IFZZ=0THEN472 

466 RETURN 

467 GOSUB639:COLOR1,3,.5:CHAR1,5,$, "ALLE{SPAC 
EYWELTEN { SPACE} SIND{ SPACE) EXPLODIERT! " 

4568 CHAR1,5.7, “ALLE {SPACE} IM{ SPACE} HYPERRAUM 





{SPACE} BEFINDLICHEN" 
469 CHAR1,5,9, "SCHIFFR{ SPACE) IRREN{ SPACE}IZIE 
LLOS{ SPACE} IM SPACE} ALL{ SPACE}... ":G0OSUB162: 


SCSUB509:GOTO709 , 
470 22Z=0:FORI=1TO200: IFFCKLI)< >11ANDFCKLII<> 
CTHENZZ=Z2+1 

471 NEXTI:RETURN 

472 GOSUB639:CHAR1,3,5.ZF$ (C) +P$4+NP$(C) "I" 
473 CHART, 3,7, "SIE{ SPACE} HABENLSPACEIDIEL SPA 
CEYGALAXLE{ SPACE} IM{ SPACEIGRIFFT " 

474 CHAR1,3,9, "SIE SPACE) SIND SPACE}DER{ SPAC 
EYMEISTER{ SPACE}DIESER" 

475 CHAR1, 3,11, "GALAXIE! ( SPACEIHERZLICHEN SP 
ACEYGLUECKWUNSCH! " 

476 GOSUB162 :G03UB509 :GOTO70S 

477 PRINT" i CLEAR)" ;FORP=OTOPN:PO%(P}=0:NEXT « 
478 DO:P=INT(PN"RND(0)+1) :LOOPUNTILPOR(P)=0 
479 PO&(P)=1:POX(O)=POX(0)+1: IFWZX(P}=Q AND’ 
PO% (0)< PNTHEN478 - 

480 IFPO&(0)=PN AND WZ%(P)=0THEN483 

481 Z1=SD%(P,1) :G0SUB425: IFTN-T<6THEN: COLOR1 
‚3.2:CHAR1,18,2, "ACHTUNG: (SPACE ELASHON}SPIE 
LZEIT! FLASHOFF}Y” R 
482 GOSUB463 :G09UB385 :SDK{P,1)=Z1: IFPOX(D)EP 
NTHEN478 

483 GOSUB439 :GOSUBBL 

484 GOSUB420 : GO9UB178 :G05UB592 :G0OSUB617 

485 FORW=1TOWN : W2% (W) =WS% (W) :NEXT:T=T+1 

486 IFT<=-TNTHENA77 

487 PRINT" {CLEAR DOWN3 YELLOW SPACE3 FLASHON 
}ENDE4 SPACE) DURCH SPACE} ZEIT ( FLASHOFF) * :GOSU. 
B162:6070705 en, 

488 Z2Z=0 :V%=WN/9:W=0 : FORI=OTOB:PZ% CT) =3+RND( 
OY"V:W-W+RZ&(I) :NEXTI 

489 IFW>WNTHEN492 

490 V%=RND 0) *9: IFPZ& (U) +1>1STHEN490 

491 PZSVX)=PZX(V%) +1 :W=W+1 : IFWCWNTHENAS0 
492 IFW=WNTHEN495 

493 V%=RND (0) *9; IFPZ&V%) -1<COTHEN493 








C16 - SA 5/89 


<59> 
<126> 


<152> 
<208> 
<93> 

<136> 


<126> 
<249> 
<152> 
<107> 
<165> 
<107> 
<2167 
<25> 

<52> 

<B6> 


55) 
<191> 
<120> 


<247> 
<118> 
<98> 
£59> 
<230> 


<1> 


€134> 
x97> 


2077 
<229> 


<202> 


<125> 
<210> 
<128> 


<185> 
<170> 


<215> 
<171> 
<44> 

<125> 


<229> 
<11> 


<178> 


<113> 
<214> 
<28> 

<193> 
£185> 


63> 


<119> 
<248> 
<31> 
<138> 
<25> 
<144> 


PROSRAMLIE BE 


494 P2%(V%) =PZ&V%) -1:W=W-1: IFW>WNTHEN493 
495 Wei: FORSC-OTOB 

496 IFPZ&{SC)=OTHEN507 

497 IFZZ=OTHENWY% (W)=RND (0) *23+Y%15C) :WIRLW) 
=RND {0) *I38+X% (SC) 

498 W=W+1: IFP2%(5C)=1THEN5D7 

499 FORJI=1TOP2%{SC}-1 

500 IFZZ=-1THENSO6 


201 WY&{W)=RND(0) *23+Y% SC} 


502 WX%(W)=RND (0) *38+X% (5C) 

503 I=-W-J 

504 IFABSLWXS(W)-WAKCT) )CAANDABSCWYRCWI -WYR 
I} )<8THENS501 

505 I=I+1; IFIXWTREN504 

506 WeW+1:NEXT 

507 NEXT:GOTO0539 

508 POKE65298,192:POKE55299, 16:RETURN 

509 POKE65298, 196: POKE63299, 208 : RETURN 

510 WE=W: FORZ=0TO8 : IFPZ% (Z) <WETHENWE=WE-PZ% ( 
2) :NEXTZ : RETURN 

511 SC=2Z:Z=9:NEXTZ: RETURN 

512 FORW=-1TOWN 

513 IERND(0O)< .1THENS16 

514 WIR{WI=WIR(W) +1: IFWIS (WI >9THENSI6 

515 IFRND(O)< .7THEN514 

516 NEXT: RETURN 

517 FORI=1TOPN+1:W=BAS CI) :WS%(W) =WN*10 : FORJ= 


:0T05 


518 IPRND(0)< .2THENWS&(W) «WSK {WI -LO*RND (0) :G 
OTO520 


519 WSTLWI=-WSKLW)+LO*RNDLO) 

520 NEXTJ,I 

521 FORW=1TOWN 

522 WS (W)=-WSKLW) + LWISLCW) +3) *RND(O} 

323 IFRND{1)< .77THEN522 

524 W2%(W)=WSKLCW) 

525 NEXTW:RETURN 

526 FORP=1TOPN+1:WZ2%t{P)=1 

527 W=INT(RND (0) "WN+1} : IFWCK{W)< >OTHEN527 
528 WIK{W}=20:WC% (W)=P:BAX(P}=W:NEXT 

529 FORP-1TOPN:SDS{P,.1)=1:NEXT:WZ% 0) =WN-PN- 
1:RETURN - 

330 W=1:FORI=OT08: IFPZ% {1} >OTHENPI%(I)=W:P2% 
(IJ=W+PZ%CI)-1:WeW+HPZ& CI} 

531 NEXTI:RETURN 

532 V%=0:AN=INT(RND(0) #10) : IFAN=OANDFU=OTHEN 
RETURN 

533 FORJ=1TOAN 

534 SCNCLR: COLOR1,2,5:PRINT" (C040}”; 

535 PRINT" {RVSON SPACH2)SPACE-CONTROLLER{ SPA 
sea * ( SPACE} SONDERMELDUNG {SPACE} *{SPACE2 Avs 
OFFY"; P 

536 PRINT" (CUaoy" } 

537 IFFU>OTHENON {RND (0) #2+1)G05UB594, 564:G0T 
0539 

528, ON (RND(0) *7+1)60SUB543, 564, 585,578,592.6 
05,552 

539 IF{J=AN)ANDFU< JOTHENJ=AN-1 

540 NEXTI 

341 IFV%=-OTHEN; CHAR1,5,10, "KEINE{ SPACE) BESON 
DEREN { SPACE} EREIGNISSE" :G0OSUB162 

542 RETURN 

543 IFRND(0) >. 3THENRETURN 

544 W=INT{RND(O) *WN+1) :V=-RNDL0) /2: IFWCKLW) = 
ZTHENRETURN 

545 CHAR1,1.5, "DIE SPACEYRAUMHAEFEN{ SPACE) AU 





Ft SPACEYWELT"+STR& (W) +" { SPACE) WURDEN { SPACHD’ 


URCH" : PRINT 


9346 IFV< ‚25THENPRINT"{ SPACE) LEICHTE" ; 
"547 IFV>. 24THENPRINT" {SPACE} SCHWERE" ; 





en {SPACE} BEBEN ( SPACE} ERSCHUETTERT, {2 
OÖ " 

549 VeINTLVHWSRIW)} 

550 PRINT” {SPACE} "P$;NP&(WCK(W) ) " {SPACE} VERL 
OR"V"'SCHIFFE.” 

351 WIR{W) =WSKLW)-V:V&=-VXOR1:GOTO162 

352 IFRND(0)< . 9ORFZ=200THENRETURN 

353 WR=INT(RND{0} *WN+1) :WD=INT{RND{0) *WN+1} : 


<224> 
<130> 
<210> 


<70> 
<1> 
<101> 
<194> 
<105> 
<ı171> 
<200> 


<149> 
£50> 
<66> 
<128> 
<235> 
<15> 


<212> 
«373 

<107> 
<153> 
<51> 

<179> 
<166> 


%226> 


<189> 
<100> 
<200> 
<116> 
<45> 
<225> 
<85> 
<37> 
<24> 
<241> 
<135> 


<245> 
<194> 


'<15> 


<39> 
<226> 
<246> 


<201> 
<x141> 


<52> 


<163> 
<109> 
<52> 


<54> 
<174> 
<146> 


<34> 


<123> 
<224> 
<200> 


<19> 
<234> 


<29> 
<121> 
<102> 

















BEE PROERALILIE 


IFWR=WDTHEN553 
554 IFWC%(WR)=12THENS53 

555 P=WCK (WR) : FM=WS% (WR) : IFP=OTHENP=11 

ARE SOBOBL ED LTWERCARAZENFTTHENC N MRISEEN 
DJ+ 

557 PRINT” { SPACE}YKATASTROPHENMELDUNG: (SPACE 
RED} * SPACE} SYSTEMALARM( SPACE) *{L.GRN}" 

558 PRINT"{DOWN SPACEYDIE( SPACE} SONNE SPACE) 
VONLSEACHIWELT" : WR; "WURDE ( SPACE} ZUt SPACE) EIN 
R" 

559 PRINT"(DOWN SPACE}” :5N$:PRINT"{ DOWN SPAC 
ERDIELSPACEYSTATIONTERTE { SPACE} RAUMFLOTTE" 
560 PRINT”{DOWN SPACE} FLUECHTETE(SPACE)NACHL 
SPACE}WELT" ;WD En 

561 IFWC%(WD) =PN+1ANDWCR {WR)< >PN+1THENCAR(CA 
JeF:CA=CA+1 

562 W2X(12)=WZS(12)+1:WZICHOKLWR) ) =WZICHOHLW 
R)I-1:WCR (WR) =12:G05UB162 

563 V%=VXOR1 : RETURN 

564 IFRND(O)< ‚6ORV%ANDI12BORFZ=-DTHENRETURN 
565 V%=V%OR12B 

566 PRINT" SPACE}DIE{ SPACE}RAUMFAHRT-KONTROL 
LE{ SPACE} (RK"CHR$ {RND (0) *9+49) ") {SPACE}MELDE 
T: ” 

567 PRINT"{DOWN SPACE}KOSMISCHE ( SPACE)}STUERM 
Ei SPACE} STOEREN { SPACE} DIE{ SPACE} TRANS-" 

568 PRINT"{DOWN SPACE}MISSTON SPACE} FOLGENDE 
Ri SPACEYFLOTTENVERBAENDE: { DOWN} " : ZL=10 

569 IFFU>OTHENFORI=OTOFU-1 : F=FU% (1) :GOTO371 
570 FORF=1TOFZ: IFRND(0)< . 7THENS?4 

571. CHAR1.1,ZL, "":PRINT“VERBAND"F* : "FS%(P) "8 
CHLFFEt SPACE) U"NPS{FCS{F))")" 

572 ZL=ZL+4:FI&(F)=FT%F) +1: IFZL<23THENS7A 
573 GOSUB162:21L=22:POKEAR, 32 :POKEXR, 10:POKEY 
R.23:SYSDW 

574 NEXT:CHAR1,1,23, "TRANSFERZEIT{SPACHI 118 
PACEY RUNDE” : FU=0 :G0T0162 

575 IFFZ=0ORRND (0) >. ATHENRETURN 

. F=INT{RND (0) *FZ+1) : V=INT(FS%{F) *RND (03/2. 
+ S 

577 PRINT" { SPACE}DIE{ SPACE}NACHRICHTENAGENTU 

R{SPACE} NOVAT SPACE}MELDET{ SPACE} DAS” 

578 PRINT”{DOWN SPACE}MYSTERIGESE( SPACE? VERS 
CHWINDEN { SPACE} VON” : PRINT 

579 ERINTU"SCHIFFEN (SPACEIDES (SPACE) "PS; ;NPSL 
FCKIF} » [I 

580 PRINT"{DOWN SPACE) DIE{ SPACE} SCHIFFE{SPAC 
E) VERSCHWANDEN SDACE? AUBLSEACEI EINEM ESSIE) 
581 PRINT"{ DOWN SPÄCEYEINHEITEN{SPACEISTÄRKE 

Nt SPACE) KONTINGENT! " 

aB2 IFFCH {FI =PN+LTHENC9S (FD (P} )=CS% (FDR(P) ) 
583 FS%(F)=FS%(F)-V: IFFSS(F)<LTHENFCK(F)=0 

584 V%=V$OR1:G0T0162 

585 IF{V$AND64)ORFZ=UORRND (0) >. 7THENRETURN 
586 V%-VSOR64: PRINT" { SPACE} EINE SPACE} UNERKL 

AERLICHE{ SPACE}ERSCHUETTERUNG { SPACE) DES" 

587 PRINT"{DOWN SPACE)RAUM-ZEITGEFÜEGES (SRAC 
E}BESCHLEUNIGTE.( SPACE}D 

588 PRINT" (DOWN SPACE} REST-TRANSFERSPACE}AL 

LER{ SPACE) IM( SPACE}MOMENT{ SPACE} IMi SPACE}RAU 

M" 

589 PRINT"{DOWN SPACE}BEFINDLICHEN{ SPACE} FLO 

TTENt SPACE}UM{ SPACE} 10081 SPACE} !" 

590 FORF=1TOFZ; IFFT&EF} >TTHENFT&(F)= 94H TH FT 

&tF)-T)/2 

591 NEXTP:60T0162 

592 IFRND(O)< ..6ORFZ=OTHENRETURN 

593 F=INT{RND(0) *FZ+1) :GOT0595 

594 FU=FU-1:F=FU%{FU) 

a WD=INT{RND{0) *WN+1) : IFPH>2ANDRND(O)< .3TH 
604 

596 PRINT" {SPACE} VERBAND"F"HAT{ SPACEINAVIGAT 
IONSPROBLEHE! 

597 PRINT" (DOWN SPACE}DURCHT SPACEYEINEN ( SPAC 

EYFEHLER ( SPACE} IM( SPACEYLEITSYSTEM{ SPACE} IST 


598 PRINT"{DOWN SPACEHIDIELSPACEIFLOTTE SPACE 
































<109> 
<212> 
<85> 
«55? 


c233> 


<10> 
<190> 
<193> 
<83> 
<100> 
<65> 
<15> 
<253> 
<74> 
<170> 
<219> 
<250> 
<97> 


<108> 
<85> 


<30> 


<209> 
<192> 


<36> 
<42> 
<179> 
x63> 
<737 
<200> 
<217> 
885? 
<189> 
<30> 
<35> 


<142> 


<235> 
<242)> 
<121> 
<200> 
<130> 
«176> 
<224> 
<116> 


<204> 


<167> 


YDES{ SPACE) "P$" ( LEFTYS{SPACE)"NPSLFCK{F)) 
599 PRINT"{DOWN SPACE} VOM(SPACEYKURS{ SPACE}A 
BGEKOMMEN { SPACE) UND { SPACE} STEUERT { SPACE) NUN” 














"600 PRINT"{ DOWN SPACE}AUF{SPAGE}WELT"WD" ZU." 


:U%=VXOR1 : GOSUB162 

601 WR=FDXLF) :GOSUB12: FDR{F) -WD: VrV+FTS CF) 
602 IFFC%(F)< >PN+1LANDWCK (WD) =PN+ATHENCAX (CA) 
SF;CAmCcätl - 

603 IFFCK({F)=PN+1THENCS% (WR) =C5% (WR) -FSKLF) : 
CS% (WD) =CS% {(WD) +FS%{F) 

604 FT%LF)=V:RETURN 

605 IFRND(D)< , 7ORFZ=0ORFZ=200 


THENRETURN 
-606 F=INTERND(D) *FZ+1) :EM=-INT{FS%tF) /2*RND(O 


)+1} 


607 PRINT" { SPACE}WEGEN{ SPACEYTRIEBWERKSSCHAD 





EN: SPACE} BLETBEN" FM 

608 PRINT" (DOWN SPACE}SCHIFFE(SPACEIDES{SPAC 
E)"PS:NP$(FCK(F)) 

609 PRINT" (DOWN SPACE}ZURVE 

610 IFFM=FS%(F)THEN613 

611 PRINT" (DOWN SPACHYDIE( SPACHISCHIFFELSPAC 

E) BEFANDEN{ SPACE} SICH ( SPACE} INi SPACEFEINEM" 

612 PRINT" (DOWN SPACE} "FS%(F) "SCHIFF{SPACH}S 





: TARKEM{ SPACE} KONTINGENT.. " 


613 PRINT"{DORN SPACEYTRANSFERZEITISPACEI+IT 
SPAGE}RUNDE" 

614 FSKtF)=FS%F)-FM: IFFS&{F}=OTHENFT% (F)=FT 
%(F)+1:FS%(F)=FM:GOTO616 

615 FZ=FZ+1:FCH{FZ)=FCR(F) : FDS{FZ) =FDR{F) :FS 
%(FZ)=FM: FT%{FZ)=FT&{F)+1 

616 V%=-VXOR1:G0T0162 





-617 PRINT“ { CLEAR)” : IFFZ<2THEN621 


618 CHARL,1,12, "ANMERKUNG { SPACE}DER( SPACE} FL 
UGLOTSEN: " : PRINT 

619 PRINT"{DOWN SPACEIAUSLASTUNG { SPACE} DER 
PACEYKONTROLLKAPAZITAET" INT(FZ/2)" (LEFTI%" 
620 G0T0162 

621 CHAR1,1,12, "DIE{SPACE}RAUMAGENTUR {SPACE} 
NOQUI { SPACE}MELDET : ” PRINT 

622 PRINT" (DOWN SPACE) INTERSTELLARVERKEHRSRA 
TE{ SPACE) GLEICH SPACE} NULL!" 

623 GOTO162 

624 SCNCLR:COLOR1,2,5:PRINT" {DOWN SPACEYFUNK 








. TIONEN DOWN} " 


625 PRINT" {SPACE} [W] (SPACE}WELITERSPIELEN" 


626 PRINT” {SPACE) (5) (SPACE) STERNENKARTE" 


627 PRINT" {SPACE} IR] {SPACE}REGELN" 
628: PRINT" {SPACE} IN] (SPACE}NUITI SPACE) "PS: NP 
s(P) 

629 PRINT" {SPACE} [2] { SPACE) ZELTAENDERUNG" 
630 PRINT" ( SPACE) [E) (SPAGE}ENDE” 

631 GOSUBL63: V%-1 

632 IFIN$="W"THENRETURN 

632 IFIN$="S"THENGOSUBSA1 

634 IFIN$="R"THENGOSUB50 

635 IFIN$="N"THENGOSUB6S6 : IFINS="J" THENV=-1 
:RETURN 

636 IFIN$="E"THENGOSUB666 

637 IFIN$="Z"THENGOSUB661 

638 GOTO624 

639 SCNCLR:6OSUBS08 : POKEAR, RND (0) *255+1:POKE 
XR, RND(0) *255+1 

640 POKEYR,RND(0) *255+1 :5YSBG : RETURN 

641 SC=SD%{P,0) | 

642 DO:GOSUB639 : IFPZ% (SCY-OTHEN645 

643 FORI=P1% (SC) TOP2%(5C) :PL=INT(1/10) :PreI- 
PL*1O 

644 CHAR1,WX%{1)-XS (SC) ‚WY%TI-YRLSC) ‚ZFELWC 
${D) )+PLS$ (PL) +" {UP} "+PRSCPR) :NEXTI 

645 CHAR1,16.,24,"":PRINT"{WHIZE RVYSONI<C "SCH 
"{LEFT SPACE} >{ BVSOFF}“ ; ' 

646 DO:GOSUB163 

647 LFIN$=CHR$ (13) THENSD& (P, 0) =5C:605UB509 :E 
XIT 

648 IFIN$=CHR$ (145) THENSC=SC-3: EXIT 

649 IFIN$=CHR$ (17) THENSC=SC+3: EXIT 

650 IFIN$=CHR$ (29) THENSC=SCH+H1:EXIT 





€©16 - SA 5/89 


<220> 
<94> 


$32> 
<70> 


<4> 
<i1> 
<211>. 
«i10> 
<131> 
<93> 
<a5> 
<191> 
<201> 
<133> 
<182> 
<247> 
<57> 
<160> 
<221> 
<211> 
<273 


<225> 
<195> 


£222> 


<199> 
<198> 


<122> 
<150>. 


'<145>. 


<226> 


241? 
<76> 
<165> 
«727 
<51> 
<77> 
<92> 


<94> 
<71> 
<154> 
%219> 


x213> 


<191> 
<1893> 
<49> 


<247> 
“126> 


£43> 
<146> 


<171> 
<28> 
<98> 
<89> 


651 IFIN$S=CHR$ (157) THENSC=SC-1 :EXIT 

652 LOOR 5 

653 IFSC>BTHENIC=SC-$ 

654 IFSCSOTHENSC=SC+Y 

655 LOOP UNTIL IN$=CHR${13} :RETURN 

656 GSOSUB726 : IFIN$="N"THENRETURN 

657 F=FZ:FORI=1TOF: IFFC&{F)< >PTHEN659 

658 FCSLTI=FCRLF) :FISCLI=FT& CF) :FSRCI)=FSSF 
I:FDRII)=FDS{F):F=eF—1 

Ne NEXT: FZ=F : FORW=1 TOWN : IFWC% {W) =PTHENWOR (W 
y“ 

660 NEXT W280) =W2% (0) +WZ%P) :WZ%CP)=O :RETUR 


N 
661 PRINT"{CLEAR DOWN) ZEIT SPACE} AENDERN DOW 
N2}" 

662 PRINT"DAS {SPACE NAECHITE( SPACE) JAHR{ SPAC 
EYIST" ;T+1:PRINT"SPIELENDE{ SPACE} TSTLSPACHT 
M{ SPACE) JAHRE" ; TN 

663 INPUT" { DOWN} NEUES ( SPACEYSPIELENDE" ; IN$:T 
N=VAL(IN$) 

664 IFTN=0ORTN<TTHENG61 

665 RETURN 

666 PRINT"{CLEAR DOWN3 SPACE}A) LSPACEHSPIELS 
 TAND{ SPACEYSPEICHERN" 

667 PRINT" (DOWN SPACE}YB) t SPACE} AUSWERTUNG" 
66B GOSUB163: IFIN$="A"THEN671 

669 IFIN$="B"THEN704 

670 GOT0668 

671 SD%tP,.1)=Z1:603UB726 :6070903 

672 PRINT"{CLEAR DOWN3 SPACE}BITTELSPACE}LEG 
EN{ SPACE} SIE{SPACEJEINEt SPACE) DISKETTE{ SPACE 
JEIN” PRINT j; 
673 PRINT" (SPACEYUND ( SPACE}DRUECKEN{ SPACE) SIT 
Ei SPACEYEINE{ SPACE} TASTE. ” :GOSUB162 :GOSUBB0O 
674 OPEN1,8,15,"5:TGM.GAME" :OPEN2,8, 2, "TGM.G 
AME,W,S" 

675 PRINT"{CLEAR DOWN3 SPACHYBITTELSPACE)}WAR 








TEN{SPACE}.., .“ :P$=CHR$ (13) 

676 PRINT#2,STR$(T} ;P$;STR$(TN} :P$; STRSPND ; 
P$:STR$(P} 

677 FORI=DTO11: IFNP$ LI)=""THENNPSLI)="( SPACE 
Y% 

678 NEXTI 


679 FORI=0TO11:PRINT#2.NP${I) :NEXTI 
680 FORI=OTOPN: PRINT#2.STR$(POX(1)) ;P$:STR$( 
SD%(L,0)) 

SE1, PRINT#Z,STRS(SDSCH,1)):PS:STRSCCTKET)) :N 
EX 

682 FORI=0TO12: PRINT#2.STR$ (WZ&CI)) :NEXTI 
683 PRINT#2.STR$ (UN) 

684 FORI=1TOWN 

685 PRINT#2, STR$ (WX&(1)) :P$:STRS(WVRLL}) PS; 
STR$(WIS(IJ):P$;:5TR$ (WC$(I)) 

686 PRINT#2.STR$ (WS (L)) PS: 3TR$(WZRCT)) PS; 
STRS(CS&(CI)) 

687 NEXTI 

688 PRINT#2.,5TR$1(FZ) : IFFZ=5THEN693 

689 F=D:FORI=1TOFZ 

690 FeF+1:IFFC%LF)=OTHENAIO 

‘691 PRINT#2,STR${FC%LtF)) ;P$:STR$(FSKtLF}) PS; 
STRE(FDRCF) ) ;P$:STRS(FT% (FF) ) 

692 NEXTI 

693 FORI=0T08: PRINT#2 ,STR$PZ&(I)) :F$: STR 
E%t1)):;P$;STR$LCD%S{L)) 

694 PRINT#2,STR$(CH&(T)):NEXTI 

695. FORI=1TOPN+1 :PRINT#2,STR$(BA®(I)):NEXTT: 
PRINT#2.STR$ (PH) ;P$:STR${TP) 

696 PRINT#2,STR$ (KS) ;P$;ITR$(K1) ;P$;STRS(K%) 
;P$;STR$ELCAR) ;P$:STRELCA) 

697 PRINT#2,STR$(VH) ;P$;STR$ (K2) ;P$:STR$ (CD) 
:P$ ;STR$ {SK) :P$;STR$ (PT) 

698 IFCAPOTHENFORI=OTOCA-1 : PRINT#2,, STRE {CARL 
I)):NEXTI - 

699. FORI=1TO11:PRINT#2 , ZF$ {1} :NEXTI: IFGA=1TH 
EN?7O1 

700 GGSUB?02: IFF>OTHEN672 

704 CLOSE2:END 
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<22> 
<122> 
<245> 
<203> 
<129> 
<82> 
<49> 


<x163> 
<230> 


«252> 


<122> 


<174> 
<13> 
«2555 
<41> 
<131> 
<65> 
<63> 
€223> 
<23> 
<122> 
<225>% 
«152> 
192) 
<209> 
<158> 


<237> 
<188> 


'<2> 


<176> 


<113> 
<99> 

<121> 
<251> 


x43> 
<70> 
<197> 
<80> 
<212> 
<44> 


<103> 
<202> 


<97> 
<8> 


<58> 

<174> 
<247> 
<196> 
<128> 


<141? 
<113> 


PROGRAMME Ba 


702 INPUT#1,F.F$,1.J1:CLOSE2:CLOSEI: IFF<Z0THE 
NRETURN 

703 PRINT" {CLEAR DOWN RVSON SPACEIDISK-ERROR 
:"FP{LEFTI , SPACE)" FE" (SPACE) , "I" LLEFNI,"J:G 
OTO162 

704 GOSUB726 : LFIN$="N"THENRETURN 

705 SCNCLR:COLOR1,2,5: PRINT" { DOWN) AUSWERTUNG 
+4 DOWN} " 

706 FORI=0T090 :W2% (I)=D:NEXT 

707 FORW=1TOWN : P-WCRLW) :W28.(P)=WAR(P) +WSKCW) 
:W2%10+P) «W2%(10+P) +WIR(W} : NEXT 

708 FORF=1T0200 ; P=FC& (F} :W2%P} =W2%(P)+FOSF 
):NEXTF 

709 FORP=1TOPN+ :WIX(P)=P 

710 PK{P}=WZ% (P) *100+W2%(10+P) *10+W2%(P} #20: 
NEXT 

7131 FORI=1TOPN: FORI=I+1TOPN+1 

712 IFPK(WS%CL) } >PK(WS&(J} )THEN714 

7313 VAWSKLI) :WSKCLI=WIRLI) :WIRLT) MV: AS=ZPE (I 


):ZF$(II=ZFECI) :ZFECI) AS 

714 NEXTJ,I 

715 PRINT"{SPACE SU 53 CR S*9 CR Srd CR 36 
ER S"8 SI)" 


716 PRINT"{SPACE S-}NR. {S-} COMMANDER{ S-}WELT 
{S-}SCHIF. {5- SPACE}PUNKTE {SPACE S-}" 

717 PRINT" (SPACE CO 5*3 94 9"9 5+ 3*4 Sr 9r6 
St S”0 cm" 

71B FORP=1TOPN+1:PRINT"{SPACE S- SPACEI S=}" 
en "iS SPACE4S S- SPACE6 8-)"SPC(8)"(3-}" 
:NE 


719 PRINT" (SPACE SJ 5"3 CE 59 CE S"4 CE 86 
CE 578 Sk)" ; 

au FORI=1TOPN+1:P=WS% (I) :PRINTCHR$ (19) ;ZF$ ( 
) 

721 CHAR1,2.5+1,"":PRINTRIGHT$ (STRS{I) , 27" .{ 
RIGHT} "NP$ (P) 

722 CHAR1,17,5+1,RIGHT${STR$(WZ&(P)} ‚2) 

a CHAR1, 21,5+1, RIGHTS" { SPACES} "+STRE (W2XL 
1),6) Ef 

724 CHAR1,28.5+1,RIGHT$("{SPACEB} "+STR$(PK(P 
)),83 : FORJ=OTOLOO:NEXTI,I 

725 GOSUB162: PRINT" {HOME BLACK}"”:END 

726 PRINT" {DOWN SPACEISIND( SPAGEISIE{SPACE}S 
ICHER{ SPACE} (J/N) Fi SPACEN" 

727 GOSUB163: IFIN$< >" I"ANDINS< "N" THEN727 

728 RETURN / 

729 IN$-STR$CT) :PRINT" {CLEAR RVSON SPACE2}EL 

GENE SPACEZ}FLOTTENVERBAENDE{ SPACE2} " ; :Z.m3 

730 IN$="<JAHR"+INS+ "SPACE" : INS=LEFTSC"S 
PACE12}" ‚12-LEN (IN$) )+IN$:PRINTIN$ :PRINF 

731 GETIN$: IFIN$< >" "THENRETURN 

732 FORF=1T0200 : EFFCK(F}< >PTHEN738 

733 CHAR1.0,2L,"“:PRINT"VERBAND"F 

734 CHAR1,11,ZL.”": PRINT": { SPACE}ZIELWELT{SP 

ACE4} : "FDX{F} 

2 CHAR1,13, ZL+1, “" :PRINT"SCHIFFE( SPACES} :” 
SK{F) 

736 CHAR1,13,2L+2,"" PRINT" ANKUNFTSJIAHR: "FT% 
(F) 

737 ZL=21+4: IFZL>17THENGOSUB162 : FORT=-3T024 ;P 

OKEXR.1:SYSDL:NEXT:ZL=3 

738 NEXT; IFZL< >3THENGOSUB162 

739 RETURN 

740 P$="COMMANDER ( SPACE} " :UP=5181 :DW=5206 ; DL 
-5304 :BG=5321 :AR=2034 : XR=2035 : YR=2036 

741 SN$=" ( RUSON) SUPERNOVA 1 RUSOFF}" 

742 DIMWS% (90) ‚WC% (90) ‚WX%(90) ‚WY%L90) ‚WISL9 
0) ,W2%(90),X%(8) ‚Y%(8) ‚PZx(8) 

743 DIMFS% (200) ‚FD%(200) ‚FC (200) ,FT%(200),C 
P%(90) ,C5%(90) ‚CA%(49) ,3D% (8.1) 

744 DIMPO%(8) ‚BA%(9) ,PL$(9) ,PRS(9} .NP$t11),F 
U%(90} ,W2%(12) .,ZF$(12) 

745 DIMC% (12) ,CT%(8) ‚CEX(B) ‚CD% (8) .CH%(8) ‚Pi 




















.%(8) ‚P2%(8) 


746 PL$(O)="{$® DOWN LEFT SA}":PR$(O)="(C® D 
OWN LEFT CA}" 
747 PL$(1)="{SB DOWN LEFT 5C}":PRSU)="(CB D 


<126> 
<124> 
<130> 


<219> 
<49> 


x27> 


<195> 
<169> 


<165) 
«2367 
<132> 


<108> 
<138> 


<59> 
<136> 
g226> 


<167?2 
$18> 
£9> 


<236> 
<201> 


<167> 


<250> 
<80> 


<65> 
<52> 
<104> 
<3> 
<169> 
<02 
<1409> 
<118> 
<117> 
<242>. 
<199> 
<16> 
<142)> 
<115> 


<188> 
<165> 


«219% 
«195? 
<146> 
<253> 
<137> 


45 














— 





Zn 








nn  —  — en 





BEN PROCR/AMME 


OWN LEFT CC}" 

748 PL$(2)="{SD DOWN LEFT SEN" :PRSLZ2)="{CDD 
OWN LEFT CEY" 

749 PL$(Y="(SF DOWN LEFT 36)" :PR&(3)="(CE D 
OWN LEFT C6}" 

750 PL$(4)="(3H DOWN LEFT SI)" :PR$(4)="(CH D 
OWN LEEFT CI}" 

751 PL$(S) =" DOWN LEFT SKI" :PRE(SI="(C7 D 
OWN LEFT CK}" 

752 PLS(6)="{SL DOWN LEFT SM" :PRS(Ö)="(CL 2 
OWN LEFT CM" 

7593 PL$(7)="{SN DOWN LEFT SO)" :PRSLM="ICN D 
OWN LEFT C0}” 

754 PL$(B)="{SP DOWN LEFT SQ)" :PRS(BI="ICE D 
OWN LEFT CN" 

755 PL$(9)="(SR DOWN LEFT 55)" :PRS(9)="iCR BD 
OWN LEET C9}" EE 

756 X%(0)=0:Y%(0)=0 

757 X%(1}=40:Y%{1)=0 

758 X%(2}=B0:Y%(2)=0 

759 X%(3)=0:Y%(3)=25 

760 %%(4)=40:Y%(4)=25 

761 X%(5)-80:Y%(5)=25” 

762 X%(6)=0:Y%16)=50 

763 X%1(7)=40:Y%(7)=50 

764 X%(8)=00:1%{8)=50 

765 PH=1:KS=0:T=-1: FZ=0:K%=0: CAX=0:CA=0:Kie2. 
5:K2=1:5K=4 

766 FORI=1T08:C%(1)=2* (I-1) :NEXT:CD=0 

767 POKE277 , 34: POKE278, 67: POKE279,58: POKE280 
‚28: POKE281,38:POKE282.103 

768 FOKE283,56:POKE285, 100: POKE288, 69: POKE28 
9,70: POKE286,, 33: POKE290, 65 

769 ZF$(0)=CHR$ (5) :ZF$(1L)=CHRE (28) 

770 ZF${2)=CHR$ (159) :ZFS(3)=CHRS 156) :ZF$ (4) 
=CHR$ (30) :ZF$ (5) =CHR$ (31) 

771 ZF$(6)=CHR$ (158) :ZFS(7)=CHR$L129) :ZFE CB) 
=CHR$ (150) :ZF$ (9) =CHR$ (153) 

a ZF$ {10)=CHR$ (154) :ZF$(12)=CHR$ (151) :RETU 
773 PRINT" (CIRLE EL,GRN CLEAR}BITTESPACEIWAR 
TEN{ 2..." :G0SUB740::G0SUBB42 

774 ER GOSUB897: IELNd=" I THENASO 

775 PRINT"{CLEAR L.GRN}REGELN ( SPACH} (J/N) 7": 
60518727 : IFIN$=" J"THENGOSUBB50 

776 GOSUB780: PRINT" {CLEAR L. GRN}BITTE{SPACH 
WARTEN SPACE}... : F=RND(-TI) 

777 G0SUB488 : 60SUB512 :60SUB526 :G09UB517 

778 VH=INT{RND(O) *9) : IFPZ%(VH) »OTHEN?78 

779 GOT0477 

780 A$="": INPUT" {CLEAR DOWNZ}SPIELERANZAHL(S 
PACE} (1-8) ";A$: PN=VAL(AS) 

781 IFPN<1ORPN>BTHEN?80 

782 Ag="": INPUT" (HOME DOWNA}WELTEN(SPACE} (20 
-90)";A$:WN=VAL(AS) 

783 IFWN<200RWN>IOTHEN?82 

784 A$="":INPUT"{HOME DOWNSYSPIELJAHRE" :A$:T 
N=VAL{AS} 

785 IFTN<16THEN784 

786 PT=6:FORI=20TO90STEP2O : IFWN< ITHENPT=PT+1 
787 NEXTI:1P=PT 

788 SCNCLR: PRINT"GEBEN{ SPACEISIE! SPACE} NUN 
PACEYDIEt SPACE} NAMEN { SPACE) DER SPACEYSPIELER 
{SPACE} EIN!" 

789 PRINT"MAXIMAL( SPACE}B{ SPACE} BUCHSTABEN. * 
790 PRINT"5%40}" 

791 FORP=1TOPN 

792 BO; FORI=5T024 : POKEXR,J: SYSDL: NEXTI:NPS(P 
Jm#n.COLOR1,2,8 

793 CHAR1,0,6,*":PRENT"NAME{ SPACE}COMMANDER” 
P; :INPUTNP$ (P) 

794 IFNP${P})=""GOT0793 

795 NP$(P)=LEFT$ (NP$ (P) ‚8) :GOSUB891:PRINT:PR 
INT"EINGABE{SPACEIO.K.?" 

796 GOSUB727: LOOPUNTILING=",I" 

797 NEXTP 

798 NP${PN+1)="COMPUTER" :NP&(0)= "NEUTRAL" :NP 


<36> 
<148> 
<248> 
<76> 

<140> 
<130> 
«133> 
<207> 
<165> 
c21> 

<222> 
<12> 

<1e2> 
<185> 
<231> 
<198> 


<202> 
<248> 


<65> 
<109> 


<49> 


<72> 
66> 


<212> 
<149> 
<131> 


<70> 
<247> 


<176> 
<146> 


<69> 


<200> 


<12B>- 


<123> 


£72> 


<95> 
<227> 


<110> 
<127> 
<51> 

<ı100> 


6> 
<199> 
<172> 
<75> 


<B3> 


<120> 
<199> 


<28> 
<100> 
<66> 


${1l)="PLRAT" 

799 ZF$(11)=2F$ (10) :RETURN 

800 OPEN1.,8,15:CLOSE1 : IFST=OTHENRETURN 

801 PRINT" {CLEAR DOWN2 SPACEYBITTE{ SPACHYFLO 
PPY {SPACE} EINSCHALTEN SPACE} . , .":GOSUB162:60 
T0800 

802 PRINT" {CLEAR YELLOW DOWN3 SPACE2YALTES{S 
PACE)SPIEL{ SPACE} FORTSETZEN{ SPACE) (3/N) 7" :G0 
S5UB7 27: LFIN$="N"THENRETURN 

803 GOSUBA00:OPEN1,8,15:0PEN2.8,2,"0:T6M.GAM 
E,R.S" 

804 INPUT#1,F,IN$,I,J: IFF<20THEN807 

805 CLOSE2:CLOSEI ; PRINT" (CLEAR DOWNZ SPACE}B 
ITTE{ SPACE}THE{ SPACHIGALAXY ( SPACEIMASTER{ SPA 
CEYDATENDISK" 

806 PRINT"{DOWN SPACE}EINLEGEN{ SPACE)... 
SUB162:G0TOBOZ 

807 SCNCLR 

608 INPUT#2,A$,B$,C$,D$ 

809 T=VAL(A$) :TN=VAL(BSI :PN=VAL(C$) :P=VALLD$ 


) 

810, FORI=0TO11 : INPUT#2,NP$(T) :NEXTI 

811° PRINT" { SPACE}SPIELJAHR: "T;TAB{21) "SPIELE 
NDE: ""TN 

812 PRINT"{DOWN SPACEYWELTEN: "TAB{21) "SPIELE 
R:"PN 

813 PRINT" (DOWN SPACE 5*38)" 

814 PRINT"{DOWN SPACE} P$"WELTEN{ DOWN} " 

815 -FORI=1TOPN+1: PRINT" (SPACE) "NP$ (1) :NEXTI: 
PRINT" { SPACE} PIRAT" 











‚GO 














"816 FORI=OTOPN: INPUT#2,.A3,B$,C$.D$ 


817 POXLI)=VAL(AS} :SDSL1,O)=VAL{BS} :SDACT,1} 
=VALLC$) :CT%SLI)=VALCD$) :NEXTI 


. 818 FORI=0T012: INPUT#2,A$:W2%(1)=VAL(AS) :NEX 


TI 

619 FORI=1TOPN+1:CHAR1,12,7+1.STR$(WZSLT)):N 
EXTI:CHAR1,12,9+PN, STR$ (WZ%{11)) 

820 INPUT#2.A$:WN=VAL{A$) :CHAR1,8,2.A$ 

021 CHAR1,1,22,"SPIELSTAND (SPACE) LADEN SPACE 
}.(J/N) 2" :GOSUB727 : IFIN$="J"THEN823 

822 CLOSE2:CLOSE1 :G0T0897 

823 FORI=1TOWN 

824 INPUT#2.A$.B$,C$,D$,£$,F$,68:C9%C1}=VAL( 
6$) :W2% I) =VAL(F$) :WSKCI)=VAL(ES) 

825 WXSCIJ=VAL(AS) -WYSEII=VAL(BS) SWISTI=VAL 
(C$) :WCRLI)=VAL(D$Y 

826 NEXTI 

827 INPUT#2,A$: FZ=VAL(A$) : IFFZ=OTHEN832 

828 FORI=1TOFZ 

829 INPUT#2,A$.B$.0$,D$ 

830 FCXLI)=VAL(A$) :FS%(I)=VALLBS) :FDRCII=VAL 
(C$) : FIX I}=VAL(D$) 

631 NEXTI 

832 FORI-0T08: INPUT#2,A$,B$,C8.D$:PZ%(T)=VAL 
{A$) :CEX(T)=VAL(B$) 

833 CDS(II=VAL(CH) ;CHSCL)=VAL(D$) :NEKTI 


834 FORI=ITOPN+1: INPUT#2,A$:BAS (I) =VALLAS) :N 


EXTI 

835 INPUT#2,A$.B8,C$,.D$,E$.F$.6$: PH=VAL(AS): 
TP=VAL<(B$) :KS=VAL (CH) :Ki=VALL(DSE) 

836 Kx=VAL{ES) :CAS=VAL(F$) :CA=VAL(G$) 


837 INPUT#2,A$.B$,C$,D$.E$:VH=VAL{A$) :KZ=VAL 


(B$) :CD=VALI(CH) :SK=VAL(D$} 

838 PTI=VALLE$) : IFCA>OTHENFORI=OTOCA-1 : INPUT# 
2.A$:CAR&tI)=VAL{A$) :NEXTI 

839 FORI=1TO1i: INPUT#2,ZF$ (1) :NEXTI 

840 CHAR1.1,22, "{ SPACE4} BITTE(SPACEYWARTEN{S 
PACEY . . „ ASPACES}" 

841 CLOSEZTCLOSEI :FeRND(-TI) :22=1:G0SUB495:1 
N$="J" :RETURN 

842 COLOR4,1:COLORO, L:COLOR2, 3,5: COLOR3, 3,3: 
GOSUB508::G0SUB639 

643 POKE65287.24:COLOR1,16,7:CHAR1,6,11,." {5 
+ €= S= LEETA4 DOWN SHIFTSPACE CT CB&” 

344 & COLORI, 95:78 :CHARA, 38,15, ic AN Zi LZ cW 
LEFTS DOWN CY CU 58 £X EW\LLERTE DOWN ORSR" 
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<74> 
<194> 
<169> 


<199> 


<105> 
<189> 
<54> 
<58> 
<217> 


<18> 
<119> 


<14> 
<210> 


<100> 
<171> 
<54> 
<48> 


<194> 
<110> 


<106> 
<76> 


<10> 
<194> 


<122> 
x98> 
<135> 


<84> 
<198> 
<81> 
x16> 
<122> 
<140> 


<2> 
<86> 


«2547 
<146> 


«122? 
<216> 


537 


«226> 


<161> 
<1> 


<75> 
<103> 
«752 
<181)> 


<217> 








. 845 COLOR1,16.6:CHARL,25,1."()*+, {LEFTS DOWN 





Ben 3 

846 COLOR1,5,6:CHAR1,9,4."T{ SPACE}H{ SPACHYE" 
847 COLOR1,3,6:CHAR1.17,8, "G{ SPACHYAX SPACHYL 
tSPACEYA{ SPACEIX ( SPACEYY" 

848 COLOR1,4,7:CHAR1,14,13, "Mi SPACE} ALSPACH) 
S{SPACEYT (SPACE}EI SPACHR" ; 

849 GOSUB183; POKE65287, 8:G0T0509 
650 GOSUB887 ; PRINT"ZIEL{ SPACE}DES{ SPACE}SPIE 
LS ( SPACE} ISTt SPACEYES, IN{ SPACE} EINEM{ SPACEYS 
TERNEN-" :PRINT : ri 
851 PRINT’HAUFEN{ SPACE} ( {SPACE} 20-90 1 SPACHIS 
ONNEN { SPACE) {SPACEYMOEGLICHST SPACE} VIELE" ; 
PRINT £ 

852 PRINT"STERNENSYSTEME {SPACE} ZU SPACEIBEHE 
RRSCHEN. { SPACE} DAZU SPACE}KANN" ;PRINT 

853 PRINT'"MAN{ SPACE} VOM{ SPACE2}MUTTERPLANETE 
N{ SPACE2} RAUMSCHIFFE {SPACE} AUF" :PRINT 

854 PRINT"EROBERUNGSFELDZUEGEt SPACE} AUSSENDE 
8." :PRINT:PRINT 

855 PRINT"ES{ SPACE}KOENNEN ( SPACE}DIE{ SPACEIP 
LANETEN { SPACE} VON{ SPACE}MITSPIELERN" «PRINT 
856 PRINT"ODER{ SRACE}NEUTRALE( SPACE}WELTEN{S 
PACEY (( SPACEY AUCH SPACE) BEWAFFNET! (SPACE))": 
PRINT ; 

857 PRINT"ANGEGRIFFEN { SPACE}WERDEN. " ;GOSUB16 
2:G0SUB897 

858 PRINT”NACH{ SPACE} JEDER ( SPACE) SPIELRUNDE{ 
SPACE} ZEIGT { SPACE} EIN{ SPACEYTABLEAU” :PRINT 
859 PRINT"DIE{SPÄCE}MACHTVERHAELTNISSE (SPACE 
}IN{ SPACE} DER{ SPACE}GALAXIE" : PRINT 

860 PRINT"AN.":PRINT:PRINT 

861 PRINT"MIT{ SPACE} 'CRSR{ SPACE}LEFT/RIGHT' { 
SPACEYKANN{ SPACE} DAS{ SPACEYTABLEAU" :PRENT 
862 PRINT"SEITENWEISESPÄCE}GEBLAFTTERT{ SPAC 
EIWERDEN. "PRINT: PRINT 

863 PRINT"MIT{ SPACE) 'CRSR{ SPACE} DOWN' (SPACE) 
UND{ SPACE} 'CRSRLSPACEYUR ' {SPACE}KANN{ SPACEID 
AS": PRINT => 
864 PRINT"TABLEAU{ SPACE} SCHRITTWEISE SPACEIG 
EBLAETTERT { SPACE}WERDEN. ": PRINT 

865 PRINT"MIT{ SPACE} "3° { SPACE}KOENNEN{ SPACE} 
nr SPACE}SICH( SPACE} DIE{ SPACE} STERNEN-" :PRI 


866 PRINT'"KARTE{ SPACEYZEIGENSPACH)LASSEN." 
GOSUB162:G0SUBB87 

867 PRINT"DIE{ SPACE) STERNENKARTE{ SPACE}ZEIGT 
t SPACE) DIE SPACE) LAGE SPACE} DER ( SPACE} BIN-": 
PRINF i 

868 PRINT"ZELNEN { SPACE} SONNEN{ SPACE} ZUEINAND 
ER." :PRINT:PRINT:PRINTTAB(18) "123" 

869 PRINTTAB(18) "356" :PRINTTAB(18) "789. DOWN} 
EEBINITAR (10) "ANORDNUNG t SPACE} DER ( SPACEIKAR 
870 PRINT: PRINT: PRINT"FOLGENDE{ SPACE}TASTEN{ 
SPACE} HABEN { SPACE) HIER ( SPACE} EINE ( SPACE) FUNK 
TION" :PRINT 

871 PRINT"CRSR{SPACEF} : (SPACE}BLAETTERN" :PRE 
NT 

872 PRINT"RETURN{ SPACE} : (SPACE) VERLASSEN (SPA 
LEYDER { SPACE} STERNKARTE" :GOSUB162:605UB887 
873 PRINT" 'V'(SPACEYTEILT{ SPACE) IHNEN ( SPACE} 
MIT, t SPACEYWELCHE ( SPACE} FLOTTEN" ; PRINT 

874 PRINT"SICH{ SPACE} VON SPACEYIHNEN{ SPACE) T 
Mi SPACE}HYPERRAUM4 SPACE) BEFINDEN. " :PRINT 

875 PRINT’MIT{ SPACE)" F" {SPACE} ERFAEHRT{ SPACE 
}MAN{ SPACEYDIE{ SPACE) ANZAHL( SPACE} DER{ SPACE} 
IM* ; PRINT 

876 PRINT"HYPERRAUM{ SPACE} BEFINDLICHEN { SPACE 
}FLOTTENVERBAENDE. " : PRINT - 

877 PRINT"MIT{ SPACE) '2' ( SPACE}ERFRAGT { SPACH} 
MAN ( SPACE) DIE{ SPACE) ZEIT { SPACE) FUER{ SPACEYEI 
NE“ :PRINT -. 

878 PRINT"TRANSMISSION{ SPACE}VON{ SPACEYSTERN 
{SPACE} ZUf SPACE} STERN{ SPACE} }":PRINT:PRINT _ 
879 PRINT"MIT({ SPACE} *H' (SPACEYGELANGEN{ SPACE 
ISIE {SPACE} IN! SPACEYEIN{ SPACH}YHILFSMENUE, ":P. 
















































































C16 - SA 5/89 


<135> 


<164> 
<209> 


<69> 
<107> 


$91> 


<200> 
<48> 
x194> 


‚x74> 


<136> 


<2> 
<5> 
<101> 


<218> 
«75> 


<125> 
<251> 


<150> 
<230> 


<27> 
<192>3 


$24> 
675 


<«82>. 


<101> 
<117> 
<42> 
<78> 
<228> 


<109> 


<162> 


<200> 
<198> 


 FROCRAHLIE N 


RINT n 

880 PRINT"WELCHES{ SPACE} IHNEN { SPACE}UNTERAND 
EREM{ SPACE} AUCH{ SPACE) ERMOEG-"; PRINT 

881 FRINT"LICHT{ SPACE} AUF { SPACE) DIE( SPACEIRE 
GELN4 SPACE} ZURUECKZUGREIFEN, " : GOSUBL62:GOSUB 
887 

882 PRINT" FEHLER{ SPACE) BEI SPACEIDERI SPACEIE 





INGABE{ SPACE} (WIEtSPACE)Z.B. {SPACE}ZUVIELE”: . 


PRINT 

883 FRINT"SCHIFFE) {SPACE}WERDEN { SPACE}ERKANN 
T, {SPACEYANGEZEIGT{ SPACEYUND" : PRINT 

884 PRINT"IGNORIERT. ":PRINT:PRINT:PRINT 

885 PRINT"MITSPTELER: { SPACE} 1-81 SPACEN}/(SPA 
CE3}WELTEN{ SPACE) 20-90" : PRINT 

886 PRINT"SPIELJAHRE: {SPACE} UNBEGRENZT" :GOTO 
162 

887 SCNCLR:COLOR1,2,5 

888 CHAR1,12,0,"{0015}* 

889 CHAR1,12,1,"1 RUSON SPACES} REGELN! SPACES 
RVSOFF} 

890 CHAR1,12,2."1.CU15}*":PRINT: PRINT:RETURN 
891 CHAR1,0,10, "WAEHLE( SPACE} DEINE{ SPACE}FAR 
BE{ SPACE} "+P&+NP$ (P) :CHAR1, (6+P*3) 72,12, "" 
892 FORI=0TO1O-P 

893 PRINTZF$(I+P)"(RVSON SPACEI DOWN LEFT3 5 
PACE}" ;RIGHT$ (STR$ (I) .1):*{SPÄCE DOWN LEFT3 
SPACE3 RVSOFF UP2)" ; :NEXTI:COLOR1,2,5 

894 DO:DO:CHAR1,0,17,"":INg=-"" :INPUT"FARBE{S 
PACE}" ; IN$: LOOPUNTILIN$< >"" 

895 J=VALLIN$) :LOGPUNTILI<11-P ; 
ER el, (J+P) :ZF$ (J+P)=ZF$ (P) :ZFS (PI «INS: 
897 PRINT"{CLEAR YELLOW DOWN3}ALTES{ SPACE} SP 
IEL{ SPACE} FORTSETZEN SPACE} (J/N) ?" :G050B727: 
IFIN$="N"THENRETURN 

898 IFGA=0THENGOSUR90I 

839 IFSA=BTHEN803 

900 PRINT"{CLEAR YELLOW SPACE) BITTE SPACE}TH 
Ei SPACE}GALAXY{SPACE)MASTER { SPACE) DATENKASSE 
TTE" ; PRINT 

a PRINT" {SPACE} EINLEGEN SPACE}, . .“" :GO3UB16 























‘902 OPEN2,1,0,"TGM. GAME” :GOTO807 


903 IFIN$="N“THENRETURN 

904 IFGA=0THENGOSUBIOY 

905 IFGA=BTHEN672 

906 PRINT"(CLEAR YELLOW DOWN3 SPACE}BITTE(SP 
ACE}Y LEGEN{ SPACE} SIE ( SPACE} EINE SPACE} KASSETT 
E{SPACE}EIN" :PRINT . 

907 PRINT" { SPACEYUND{ SPACE} DRUECKEN{ SPACEIDA 
En {SPACEYEINEt SPACEITASTET SPACE, . . .";GOSUBL6 


908 OPEN2,1,1,"TGM. GAME" ;GOT0675 

909 PRINT" (CLEAR DOWN3 SPACE RVSON)D{ RVSOFFF 
et E{SPACEIODER( SPACE RVSON)KIRVSOFF} ÄSSE 
910 GOSUB163: IFINS< >"D"AND INC >"K"THEN910 
911 GA=8: IFIN$="K"THENGA=1 

912 RETURN 


STIENEERTTETTTT 
Jetzt nur noch 














@loFjel-ifelat-Ydn 
& dann kann’s 
losgehen. 


<185> 
<123> 


<2392> 


<252> 


<200> 
<171)> 


<170> 


<161> 
<51> 
<130> 


<26> 
<69> 


<46> 
*58> 


<188> 


<103> 
<214> 


<135> 


<114>. 
<144> 
255> 


<76> 


<198> 
<204> 
<4> 
<150> 
<38> 


<44> 


<2352> 
<23> 


«2283 
<183> 
<175> 
433> 
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BE PROSAR/ALILMIE 





Dieses Programm ermöglicht 
es ihnen, 24*24 Pixet große 
Sprites mit Kollisionsabfrage 
auf den Bildschirm zu zaubern, 
ohne daß der Hintergrund 
überschrieben wird. Davon ha- 
ben Sie insgesamt acht Stück 
zur Verfügung. Ale können 
gleichzeitig dargestellt werden. 
Eine Einschränkung gibt es ak 
lerdings: Der Befehl GRAPHIG 
darf nicht mehr benutzt wer- 
den, da es sonst zu einem Pro- 
'grammabsturz kommt. Insge- 
samt umfaßt der verwendete 
Zeichensatz 256 Zeichen, wo- 
von allerdings nur die ersten 
128 verwendet werden dürfen 
- der Rest ist für die Sprites re- 
serviert. Ein Sprite besteht aus 
4*4 Zeichen. Dargestellt wer- 
den aber nur 3*3 Zeichen. 
Die Syntax des neuen Befehls 
lautet wie folgt: 

SYS 4112,nr,0a,x,y‚xr,yr 

nr: Nummer des Sprites (0-7) 
ea: Sprite ein (1) oder aus (0) 
x ; Grobe x-Koordinate (0-36) 
y : Grobe y-Koordinate (0-21) 
xt: Feine x-Koordinate (0-7); 
Verschiebung nach rechis 

yr: Feine y-Koordinate (0-7); 
Verschiebung nach oben 


Um einen Sprite pixelweise zu 
bewegen, stellt man ihn z.B. 
achtmal an der gleichen x- 
Koordinate dar, während die 
xr-Koordinate von 0 auf 7 er- 
höht wird. Dann setzt man die 
x-Koordinate herauf, die xr- 
Koordinate auf 0 und wieder- 
holt das Ganze. Das Gesagte 
gilt natürlich auch für die y- 
Richtung. 

Ist ein Sprite für den angestreb- 
ten Verwendungszweck zu 
klein, so kann es mit anderen 
Sprites verknüpft werden. Ein 
Demo dazu drucken wir mit ab. 
Man sollte es jedoch vermei- 
den, daß sich zwei Sprites 
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überlappen, weil es sonst zu 
Verfälschungen der Hinter- 
grundgrafik kommen kann, 

& Zur Kollisionsabfrage: 
Bevor die Kollisionsabtrage 
aufgerufen werden kann, muß 
in Speicherstelle 4100 ($ 1004) 


FUER DE 
Fu 

FUER DE 
FUER DE 
FUER DE 


FUER DE 
N 4,0031 % 


E14, 9781 
14,297 8°} 
14,2 9412| 
SPRITES 
SPRITES 


E14.364%} 
SPRITES 
SPRITES 


TASTE FUER GES 


eine Null gepoked werden. 
Dann kann mit SYS4964,nr die 
Routine aufgerufen werden. Im 
Anschluß daran enthält die 
Speicherstelle 41090 das Kolli- 
sionsbyte. Enthält sie eine Null, 


amalltch "richtige” Spricest 


analysieren. Zusätzlich druk- 
ken wir noch einen einfachen 
Sprite-Greator ab. Dieses Pro- 
gramm ist einfach gehalten 
und erklärt sich selbst. Wollen 
Sie die neuen Spritss abspei- 
chern, so müssen Sie dies vom 

HE i8 

1 u i8 

2 I ve 3 


N ce — 18 


B_ 8 


i® 
ne 


i8 
un c i8 


-— Im 1a ı® 


ve Hm 0m Hm 
Hm 1 m 
tm He 4m 4m 
m ı2 1m 0 
[Tr ET Jr Y 


19 ,1273,15 41 7995 


MONITOR aus mit dem Befehl 
S”"SPRITES”,8(,1),1400,17F 
F tun. 

=> Tips für MC-User: 

Der Speicher von $DObis$D9 
darf nicht benutzt werden, da 





LUSMRENFUEBER VON SPRITES 


ZUISNIMENFUESEN 


Jon SPRITER 


ZUSMRENFUESEN VON SPRITER 
ZUEMRENFUESEN VORN EPRITES 


ZUSAMENFVUEBEN 
ZUSAMMENFUEBEN 
ZUSAMHENFUEBEN 
ZUSAMENFUEBEN 
ZUSAMENFVUESEN 


so hat keine Kollision stattge- 
funden. Bei einer Eins gab es 
eine Kollision mit dem Hinter- 
grund, bei einer Zwei eine mit 
einem anderen Sprite. 

Bevor man dieses Programm 
anwendet, sollte man sich die 
drei Demos anschauen und 


VON SPRITES 





er vom Programm verwendet 
wird. Von Maschinensprache 
aus kann das Programm wie 
folgt aufgerufen werden: 

Erst in die Speicherstellen 
$0600 - 50605 die gleichen 
Were wie im Sys-Befehl 
schreiben (gleiche Reihen- 





folge) und dann mit JSR $ 1040 
die Routine starten. 

Für die Kollisionsabfrage zu- 
erst eine Nullin Speicherstelle 
$1004 schreiben, dann die 
Routine mit JSR $ 1364 starten, 
= Wichtige Daten: 

$1809 - $1FFF = Neuer Zei- 
chensatz \ 
$1C00-$1FFF = Zeichen für 
die Sprites 

51400 -$17FF = Definition für 
Sprites, die ersten 32 Bytes: 
sind Null 

$2000 - $2100 = Die Grafik, 
die sich unter den Sprites be- 
findet 

& Hinweise zur Eingabe: 
Die drei Demos sowie der 
Sprite-Creator sind Basic- 
Programme und werden mit 
dem Basic-Checksummer ein- 
getippt und unter beliebigen 
Namen abgespaichert. 

Zur Eingabe des MC- 
Programms verwenden Sie 
bitte den MC-Checker und le- 
gen ihn an Adresse 12000. Ab- 
gespeichert wird dieser Pro- 
grammteil mit S”’ZEICHEN 
SPRITES”,8(,1), 1001,2110 
Achtung! Bevor Sie beginnen, 
ein eigenes Programm zu 
schreiben, muß die Maschi- 
nen-Routine mitRUN gestartet 
worden sein. Sonst gibt es 
Probleme mit den Start- 
adressen und das Programm 
stürzt ab! 


Zei- 


Programmname: 
chensprites 
Computertyp: 
C16/116/Plus/4 


Lautfähig auf: Datasstte 
und .Floppy 
Besonderheiten: Stellt 
Sprites im Zeichensatz- 
Mode dar 





C16 - SA 5/89 


v- 





T 


C-16 LISTING + CHECKSUMMEN (0C V1.0) 
U ee 

weni DEMO 1 Kirk 
Wr 

“#* PROGRAMMED BY BRREREE 

58 REM ** GUENTER DREES ’89 “erwknwn 

66 REM ee 

78 COLOR®,3,3:COLORA,1:COLOR1.,8:SCNCLR 

80 POKE65298,192:POKE65299,24:REM NEUER ZEIC 
HENSATZ 

98 POKE65287, PEEK(65287)OR1L28:REM 256 ZEICHE 
N 


188 FOR L = ti TO 10:CHAR 1,5.L*2, "SPRITES{SP 
ACE) FUER{ SPACEYDEN { SPACE) C SPACE) -t SPACE 161 
SPACE}!!! !t":COLOR 1,1 

118 NEXT: C=1 


18 REM 
2@ REM 
30 REM 
40 REM 


126 CHAR 1,6,23,.." TASTE{ SPACE} FÜER ( SPACEIGESC' 


HWINDIGKEIT{ SPACE} ! " 
130 DO UNTIL L>280 :L=L+C 
14@ IF PEEK{198)° >64 THEN C=C+1:IF C=15 THEN 
C=® REM TASTATURABFRAGE 
150 SYS 4112,2,1, INT{L/8).7,L-INT(L/8)*8,8 
160 SYS-4112,3,1,36-INT(L/8) .13. 7-{L-INT(L/8 
)*8) ,0:L00P 
178 DO UNTIL I<18;L=L-C 
180 IF PEEK(198)<>364 THEN C=C+1:IF C=15 THEN 
c=8 
198 SYS 4112,2,1.1NT{L/8) ,7,L-INT{L/8)*8,6 
208 SYS 4112,3,1,36-INT({L/8} , 13, 7-(L-INT{L/8 
)*8),.8:1L00P 
218 1L=8:G60T0O 138 
ENDE DES LISTINGS 





<285> 


<125> 
<225> 


81737 
<175> 
<255> 
<191> 
<64> 

<1609> 
<19> 

<234> 


<161? 
<186> 


<119> 
<72> 


<53> 
<29> 


<4> 


<112> 


x93> 
<178> 


LISTING + CHECKSUMMEN (0C V1.0) 


BEE a a a a 

Auhruk D E “M Ö 2 uarkur 
KEhEEFT a  a 

*% PROGRAMMED By  #rrrnue 

50 REM ** GUENTER DREFS ‘89 Yr#rne« 

68 REM Bl BB. 0 2 5 0 2 SE 22 Zn 2 Du 2 2 2 202 20202020; 

78 COLOR®,3.3:COLOR4,1:COLOR1,8:SCNCLR 

80 POKE65298. 192: POKE65299,24:REM NEUER ZEIC 
HENSATZ 

98 POKE65287, PEEK(65287)0R128:REM 256 ZEICHE 
N 


188 FORL-1T018:COLOR1,L:CHAR1.,5,L*2. "ZUSAMME 
NFUEGEN { SPACE} VON SPACE) SPRITES  SPACHY I!!! U" 
: NEXT ; 

L=1:DO i 

SYS 4112,4,1,1/8,11, {L-INT{L/8) *8)+1,8 
SYS 4112.,6,1,1L/8, 15, (L-INT{L/8) "83 +1,7 
SYS 4112,5,1,1/8+3,11,.L-INT(L/8}*8,@ 

SYS 4112,7,1,1/8+3,.15,L-INT(L/8)*8,7 
FORX"-BTOSO:NEXT 

SYS 4112,5,0.8.0.8,0:REM SPRITES. LOESCHE 


c-16 


18 REM 
20 REM 
3@ REM 
48 REM 


110 
128 
138 
148 
158 
16® 
17@ 
N 

188 
198 
200 


SYS 4112,7,0,0,0,0.0 
SYS 4112,4,0,0,0,0,0 
SYS 4112,6,0,0,.0,0,0 
218 L=L+4:IF L>278 THEN END 
228 LCOP 

ENDE DES LISTINGS 


<205> 


<138> 


<225> 
<173> 
<175> 
<255> 
<191> 


<64> 
<168> 


<168> 
<48> 
«202> 
<9> 
<172> 
<229> 
<203> 


<240> 
<20> 
<9 
<33> 
<224> 
<208> 


‚C-16 LISTING + CHECKSUMMEN (0OC V1.8) 


10 REM Mr 
28 REM *rukakk DE M [07 3 wnerrhen 


C16 - SA 5/89 


<205> 


<1s1> | 


PRO@CRAHLE BE 


a a 2 2 2 u SS I N 2 2 EEE 2 ZZ Se 22 273 


“* PROGRAMMED BY +rntnen 
50 REM ** GUENTER DREES '89 *ar#nu« 
68 REM LuS a 2 2 Ba a zn Se a E22 2 Ey 2 220 
70 COLOR®,3,3:COLOR4,1:COLOR1,8:SCNCLR 
8@ POKE65298.192:POKE65299, 24:REM NEUER ZEIC 
HENSATZ 
90 POKE65287,PEEK(65287)OR128:REM 256 ZEICHE 
N. 
108 CHAR1,10.1@, "KOLLISIONSABFRAGE" : FORL=@TO 
1880: NEXT:SCNCLR: VOL 
118 CHAR1,1,20,"(CJ38}" 
120 CHARL,1,1, "(CI)" 
130 P=1@0@:R=®:REM POSITION UND RICHTUNG DES 
SPRITES 
140 A=-1 
158 IF Rei THEN 180 
168 IF A=17 THEN END 
170 P=P-5:60T0 198 
198 P=P+5 . 
198 SYS 4112,0,1,18,P/8.8,7-(P-INT(P/8) *@) 
200 SYS 4964,90: IFPEEK(4108)< >®THENPOKE4188, 0 
:G0OTO 220 
21@ GOTO 159 
22@ SOUND 1,819,5:S0UND 2,8@1,5:REM TON BEI 
KOLLISION 
23@ IF Rei THEN R=@:A=A+1:CHAR 1,1,A.”(CJ38) 
“.GOTO218 
240 R-1:60T0 218 
ENDE DES LISTINGS 


36 REM 
AB REM 


<225> 
<1737 
<175> 
<255> 
<191> 


<64> 
<168> 


<148? 
<249> 
<95> 


<145> 
<196> 
<16> 
<4> 
<135> 
<9> 
<31> 


<75> 
<28> 


<233> 


<144> 
<209> 


C-16 LISTINGS + CHECKSUMMEN (0C V1.8) 


10 REM rer 


ZOREM*SPRITE CREATOR* 
3® REM Wirren een 


40 REM * PROGRAMMED BY 6. DREES '89 * 

598 REM LESE EI DET TI IE 

69 COLOR®,3,3:COLOR4,1:COLORL,B:SCNCLR 

78 POKE65298,192:POKE65299,24:REM NEUER ZEIC 
HENSATZ 

a. POKE65287, PEEK(65287)0R128:REM 256 ZEICHE 
92 FORL=0T07 :SCNCLR:SY54112,L,8,0,0.8,0:NEXT 
:REM VORSICHTSHALBER SPRITES LOESCHEN 

188 CHAR1,1,5, "WELCHES{ SPACEYSPRITE ( SPACE}SO 
LL1SPACE}DEFINIERT { SPACE} WERDEN SPACE) 7" 

118 FORL=@TO7 

120 5YS4112,L,3,L*5,18,@,0:NEXT 

138 CHAR1,8,15, "(SPACE) O1 SPACEA} LESPACEI) 218 
PACEIY It SPACEI} AT SPACES) St SPÄCH4}6 ( SPACE FÜ 
SPACE} " 

148 CHAR1,5,20, "BITTE{ SPACE}GEBEN{ SPACHSTEL 











" SPACEYDIE{ SPACE} ZAHL { SPACE} EIN! SPACE) „“ 


150 
168 


GETA$: TFAS="'"THEN150 
IFVAL(A$) >70RA$ >26" THEN159 


1780 AD=-5129:REM AB DIESER ADRESSE BEFINDEN 3 
ICH DIE SPRITES 

180 A=VAL(A$) 

19@ AD-AD+A*128;REM ı SPRITE = 128 BYTES 
20@ AD-AD+32:REM DIE ERSTEN 32 BYTES SIND @ 
210 SCNCLR . 

220 FORL1-0T02 : FORL=BTO3: FORL2=8T07 

230 P=PEEK (AD+L2) 

248 IFP2=128THENP=P-128:CHAR1.L*8,L1*8+L2,* 
car" 

250 IFP>=64THENP=P-64 :CHAR1,L*8+1 ,Li*8+L2," { 
c#) Li} 

269 IFP>=32THENP=P-32:CHAR1 ,L*8+2,L1*8+L2,"{ 
car“ 

2780 IFPS=16THENP=P-16:CHAR1.,Lr8+3,L1"B+L2, "{ 
car" 


280 IFP>=8THENP=P-8:CHAR1.L*8+4,L1*"8+L2, "CA 


<15> 
<138> 
<35> 
75> 
<55> 
<181> 


<54> 
<158> 
<74> 

<155> 
<219) 
<70> 

<255> 
<179> 
<38> 

“477 

<157> 
<132> 
<393 

<1408> 
<18B6> 
<245> 
<191> 
<43> 

<179> 
<123> 


<1977 


49 


__ÜRRSTGIRTNMIFTIE 


[0 


2908 IFP>=4THENP=P-4:CHAR1.L"8+5,L1*B+L2, "(Cl 


388 IFP)>=2THENP=P-2:CHAR1,L*8+6, L1?8+L2."{cCa 
yu 
318 IFP>=1THENP=P-1:CHAR1.L*8+7,L1*8+L2,"i{cC@ 


330 AD=-AD+8: NEXT :NEXT 

34® CHAR1.25,1, "FUNKTIONEN{SPACE} :" 

350 CHAR1.25,3. " (SPACE) CURSOR( SPACE)TASTEN" 

360 CHAR1, 25,4,” (SPACE2}=( SPACEI} BEWEGUNG" 

370 CHAR1.25,6, SPACE) * { SPACE2)= ( SPACEN) PUN 

K " 

380 CHAR1,25,7."{ SPACE)SETZEN" 

39@ CHAR1, 25,9,” {SPACE} LEERTASTE ( SPACEZY«" 

400 CHAR1,25,10, "{SPACEYLOESCHEN" 

41® CHAR1,25.13,“ {SPACE} "FL ' (SPACE}=" 

420 CHAR1.25,14,"{SPACEISPRITE (SPACE) INtSPAC 

E" i 

430 CHAR1,25,15,{ SPACEIYSPEICHER" 

440 CHAR1.25,16."( SPACE) SETZEN SPACE) UND" 

45@ CHAR1,25,17, '(SPACEIENDE" 

460 CHARL. 28, 19." (SPACEICLEARLGPACE)- (SPACE) 
en 

470 CHAR1,25,20, " ( SPACEYLOESCHEN" 

488 CHAR1.25, 22,” SPACE} PFUND SPACEN '\' {SPAC 

Ei=" 

499 CHAR1,25,23, "(SPACEIREVERS" 

500 X=8:Y=0:B3-3072 

51® P=PEEK(40"Y+X+BS) 

52@ POKE40*Y+X+BS, 95 

53@ GETA$: IFA$=""THENS3B 

540 POKE4OYY+X+BS,P 

55@ IFA$=-"(LEETI"THENX=X-1: IFXCOTHENX=23 

560 IFAS-="( RIGHT) "THENX=X+1 : IFX=24THENX=@ 

578 IFA$=" {UP} "THENY=Y-1: IFYCOTHENY=23 

589 TFAS="( DOWN "THENY=Y+1 ı IFY-24THENY=® 





















































MC-LISTING MIT CHECKSUMMEN OVM1Q | >1111 as 
31119 

>»1001 BE 10 OA 08 97 34 34 2C ::54 | >112ı 00 
>»i009 33 33 3A A2 08 00 88 20 ::ES f >1129 C9 
>1211 DE 9D AS 14 8D 60 86 28 ::63 | >1131 D6 
>1019 DE 9D AS 14 AD 81 86 28 ::71 | >1139 11 
>1821 DE 9D AS 14 8D 82 @6 28 ::7F | >1141 aa 
>1029 DE 9D A5 14 8D 03 06 28 ;:9D | >1149 CA 
»1831 DE 9D A5 14 BD 04 86 20 ::9B | >1151 CB 
1239 DE 9D A5 14 8D 85 06 AD ::11 | ?1159 88 
>»ı941 88 @6 C9 08 58 26 AD 21 ;:EF | >1161 8A 
>»1849 86 C9 @2 B@ IF AD 82 06 ::9E | >1169 C8 
>1051 C9 25 BO 18 AD 03 06 C9 ::C9 | >1171 88 
>1059 16 BB 11 AD BA 06 C9 08 ::BD | >1179 88 
>1061 R® @A AD 85 86 C9 08 B@ ::DG | ?1191 AB 
>1069- 83 4C 72 ıB A2 BE AC 86 ::6C | >1189 80 
>1071 86 AE 08 66 A9 98 85 D® ::EB | >1191 AE 
>1979 A9 28 65 Di EO 08 Fa @A ::95 | >1199 AC 
>»1081 A5 DO 18 69 84 CA DO FA ;:ı12 | ?11A1 D2 
>1089 85 D® AE 00 06 A9 Q8 85 ::Q4 | >11A9 28 
>1091 D2 A9 1C 85 D3 EB 88 F@ ::0C } >11B1 28 
>1099 16 A5 D2 18 &9 88 C9 82 ;:7B | >11B9 30 
>ı@0A1 98 08 CA DE F6 85 D2 AC ::F9 | >11C1 38 
>10A9 B@ 10 E6 D3 AC A3 18 AS ::6D | >11C9 21 
>10B1 D2 85 D4 AS D3 38 E9 08 ::BB } >11D1 CO 
>10B9 85 D5 AD 81 86 AC DB 13 ::69 { >11D9 AO 
>18C1 EA EA EA EA A@ AB Bl DB ::2C | >11EI1 AO 
>10C9 85 D6 Ce Bi DO 85 D7 AB ::35 | ?>11EY AB 
>ioD1 08 A2 80 Bi DB 91 D6 CR ::79 | >ı1Fı AO 
>190D9 CQ 84 DO F7 AB 28 Bl D@ +:64 | >11F9 88 
>10E1 91 D6 CB Co 2C DB F? AB ::03 | >1281 F5 
>10E9 59 Bi DB 91 D6 CB CO 54 ::1D | ?12089 D2 
>»1@0F1 D® F7 AQ@ 78 Bi DA 91 D6 ::7B | >1211 D2 
»ı@aF9 c8 Ca 7C DO F7 AC 81 86 ::17 | ?1219 D2 
>»11@1 C8 @1 F@ 08 AC Q@0 86 A9 :;92 | >1221 D2 
>»1109 08 99 FB 13 66 EA EA EA ::92 I ?1229Ca 
50 








<226> 
<192> 
<190> 


<204> 
<195> 
<66> 

<134> 
<226> 
<126> 


<22> 
<153>5 
<246> 
*<1933> 
<51> 


<B6> 
<30> 
<135> 
<198> 


x67> 
<14> 


<30> 
<223> 
<44> 
<126> 
<139> 
<186> 
€2> 
‚<16> 
<29)> 
<29> 
<34> 


19 AE 
D7 
A5 
08 
11 
EA 
A® 


Da 
04 
FC 
c8 
88 
D® 
D4 
ac 
EO 
01 
ce 
A® 
Aö 
Ad 
Aa 


ST: 


599 IFA$="*"THENPOKEA0*Y+X+B5,1800:X=X+1:1IFX= 
24THENX=9 
688 IFA$="{ SPACE} "THENPOKEABFY+X+BS.32:XeX+1 
ı IFX=24THENX»=@ 
618 IFA$=" {CLEAR} "THENFORL=8T023: FORI=@TO23: 
CHAR1,L.I, "{SPACE}" :NEXT:NEXT 
620 IFAS="\ "THENS40 
638 IFPEEK (198) =4THEN652 
649 GOTO519 
658 AD=AD-96:CHAR1,25,1,”{FLASHON BLACKYBITT 
E{SPACE}WARTEN ( FLASHOFF SPACE} !" 
668 FORL1=BTO2:FORL=RTO3:FORL2=8TO7 
678 P=3072+40* {L1r8+L2)+B*L: I=d 
688 IFPEEK (P)=190THENI-I+126 2 
698 IFPEEK(P+1)=1@0THENI=I+64 
788 IFPEEK(P+2)=100THENI=T+32 
718 IFPEEK(P+9)=18@THENI=I+16 
729 IFPEEK(P+4)=100THENI=I+B 
730 IFPEEK(P+5)=180THENI=-I+4 
740 IFPEEK {P+6)=180THENI=I+2 
75@ IFPEEK(P+7)=100THENI=I+1 
768 POKEAD,T:AD=AD+1 :NEXT:NEXT: NEXT 
778 SCNCLR 
788 CHAR1,1,1, "{ YELLOW WOLLEN{ SPACE}SIE{ SPAC 
EYNOCH{ SPACEHEIN{ SPACEYSPRITE{ SPACE}DEFINIER 
ENLSPACEY TASPACET" 
79@ CHAR1,16.5,."J/N)" 
8082 GETA$:IFAS="J"THENRUN 
‚B1d IFA$< >"N"THEN809 
828 SCNCLR 
838 PRINT"VIEL{ SPACE}SPASS{ SPACE} BEIM SPACE} 
PROGRAMMIEREN {SPACH} ! ! 1" 
848 FORL=9T023: FORI=90T023 
850 IFPEEK (3072+40*L+1)=32THENPOKE3072+4B*L+ 
1,188: ELSEPOKE3072+49*L+1,32 
868 NEXT:NEXT 
870 GOTO0519 
ENDE DES LISTINGS 











02 06 86 D6 ::3C | 31231 AO 67 91 D2 Aa 6F 91 D2 
AC 83 086 CO ::6E } >1239 AQ 77 91 D2 AQ@ 7F 91 D2 
D6 18 69 28 ::AD | >1241 CA EO 00 FO @B AC 9B 11 
88 DO F6 85 ::8D | 31249 EA EA ER EA EA EA ER ER 
E6 D7 4C 2D ::AF | 31251 A2 08 AO 08 Bi D6 91 DB 
AE 04 06 E6 ::3D | 31259 CB CO 04 D6 F7 AO 28 Bi 
068 BI D4 4A ::AB | 31261 D6 91 DO CB CO 2C DE F7 
D2 AE 04 06 ::76 ] 31269 AQ 50 B1 D6& 91 DB CB CO 
FO AO 77 R9 ::63:1 31271 54 DO F7 AO 78 Bi D6 91 
086 AA Bi D4 ::4A | 51279 DO CB CO 7C DB F7 4C 85 
c8 C8 C8 CB ;:CÖ.| 312812 12 EA EA EA AE 00 06 A9 
11 D2 91 D2 ::12 | „1289 80 18 69 16 CA DB FA AD 
88 88 88 88 ::A2 | 1291 0@ 91 D6 Ca 18 69 81 91 
DA AC 91 11 ::Bß | 31299 DE CO 03 Da F6 AG 28 18 
91 D2 C8 CO ::CE| 312Rt 69 81 91 D6 CB.CO 2C DO 
91 11 EA EA ::CQ | „12A9 F6 AB 58 18 69 O1 91 D6 
ea DO 83 AC ::41 | „13B1 C8 CO 54 De P6 AB 78 18 
Bi D2 88 91 ::9F | „ı2B5 69 81 91 D6 CB CO 7C De' 
28 DO F5 AB ::9P | Sı2Cı F6 AO AO AS D6 91 DO CB 
07 91 D2 AB ::79 | „1209 AS D7 91 DO EA EA EA AO 
er 91 D2 AB ::Bi | „1201 98 A9 00 85 ng A9 18 85 
17 91° D2 AB ::E9 | 1209 D9 BI DO A2 97 28 81 13 
ıF 91 D2 AB ::21 | sı2EL Ce CO 04 DO EC AO 28 A9 
91 D2 C8 CB :;6C | 312E9 00 85 DB A9 18 85 DI B1 
a8 40 Bi D2 ::6D | yı2Fı DO A2 07 20 01 13 CB ca 
a0 48 Bi D2 ::@A | s12F9 2C DO EC AC 37 13 ER EA 
a0 58 51 D2 ::52 | >1301 18 71 DB DI DB 98 99 CA 
AG 58 Bi D2 ::9A } 31389 DB F6 85 DB AC 15 13 E6 
re 41 B1 D2 ::28 | 1311 D9 AC 08 13 98 AA AB 00 
c8 C0 60 D® ::D2 | 31319 B1 DB 11 D2 91 D2 C8 C® 
D2 AO 47 91 ::7F | 31321 08 DG F5 BA AB ER EA A5 
D2 AB AF 91 ::B4 | 51329 D2 18 69 88 85 D2 C9 08 
D2 AG 57 91 ::8C | 31331 90 B1ı 608 E6 D3 68 AD 50 
D2 Ab 5F 91 ::64 | 1339 A9 08 85 DB A9 18 85 DI 
: D2 88 91 D2 :: »1341 Bl D® A2 87 28 01 13 C8 
DO F5 A9 08 ::4@ | 31949 CO 54 DO EC AO 76 A9 08 


C16 - SA 5/89 


<12> 
<£127> 


g221> 
<1837 
<119> 
<208> 


<113> 
<175> 
<123> 
<170> 
<1B1> 
<1185 
<164> 
<95> 
<a3> 
<25> 
<24> 
<50> 
<237> 


<64> 
<226> 
<197> 
<68> 
<31> 


<153> 
<37> 


<129> 
<219> 
<175> 


Eee Er r . 
EEE 
SU8 
am» 


PROCRAHKE KH 


>1351 85 D& A9 10 85 D9 BI D@ ::FA | >15C9 42 3C 81 66 18 80 C3 06 ::BO | >1841 42 42 7E 62 62 62 00 &C ::37 
>1359 A2 87 28 81 13 CB CO 7C ::AF | >15D1 18 6B 88 88 FC 82 01 09 ::3D | >1849 19 10 19 18 18 IC 808 1E ::Fl 
»1361 D@ EC 68 28 DE 9D A5 14 ::E3 | >15D9 088 00 00 09 aa 09 BO 90 ::65 | >1851 BB O8 88 AC 6C 38 80 44 ::55 
>1269 AR A9 20 85 Di A9 88 85 ::ıF | >1SEL 88 94 92 4C 20 10 OF IC ::D5 | >1859 48 50 70 66 68 64 00 48 -:A9 
>»1371 D@ EB 88 FO aA AS DO 18 ::54 | >1SE9 24 3C 908 3C 3C 3C FF 89 ::5F | 1861. 49 48 48 608 68 7E 08 Al ;::55 
>»1379 69 04 CA D@ FA 85 DO ı1B ::0@B | ?15Fi 11 39 79 32 84 BB FO BB ::96 | 31069 63 57 49 51 61 61 O8 42 ::2C 
>»1381 69 29 85 De 'A® 86 Bi DO ::95 | >15F9 90 22 00 98 08 88 88 08 ::@E | >ıa7ı1 72 4A 46 62 62 62 DR 3C ::FF 
>1389 8D 00 i® CB Bi D® 8D 81 ::Bi | >1681 00 20 00 20 00 20 20 08 ::17 | 31879 46 42 42 62 62 AC 08 7C ::DB 
>1391 18 AB 286 Bi DO 8D 82 18 ::ıC | 1609 28 208 00 20 80 080 08 88 ::ıF | >1881 46 A2 7C 60 60 68 Ad 3C ::57 
>1399 CB B1 DB 8D 83 18 AQ 08 : 1611 008 00 00 00 98 00 98 88 ;:27 | >1889 46 42 62 62 3C BE 9a 7C ::79 
>»13RA1l B9 08 18 C9 28 DO 8B CA ::CE | >?1619 08 00 00 00 2O 00 80 FF ::27 | >1891 46 A2 6C 78 54 62 8a 3C ::B? 
>»1339 CO 94 DE FA A9 08 BD 84 ::0C | >1621 CO EO FO FB FC FE FF FF ;:;38 | >1899 46 408 3C 04 54 3C 86 ?7E ::87 
»ı3Bi1 18 68 C9 88 BB B& A9 91 ::2A | >1629 BF OF 07 07 083 83 Bl FF ::BD | >18A1 18 18 18 18 16 18 08 465 ::Bl 
>13B9 BD 84 10 60 AY 82 8D BA ::65 | >16931 FF FF FF FF FF FF FF 08 ::2B ] >18A9 42 42 62 62 62 IC 08 46 ::P7 
»ı13C1L 19 6B-AC 80 86 B9 FB 13 ::7C | >1639 82 08 00 98 08 08 00 FF ::47 } »18B1 42 A2 62 62 2C 18 088 43 ::C1 
>13C9 C9 @@ FO ®3 4C 11 11 AQ ::22 | >1641 FF FF FF FF 9F 87 81 Bl ::21 | 31889 41 41 49 75 63 61 08 44 ::98 
>»ı3D1 81 99 Fa 13 AC 14 11 C9 ::FE | 21649 Ca EB FO FB FC FE FF FF ;:68 | >18C1 4C 28 19 38 64 64 008 46 ::01 
>13D9 00 FO @3 AC C3 13 AC @® ::FA | >1651 FF FF 7F 7F 3F 3F 1F 08 ::6B | >18C9 42 42 3C 18 18 18 80 7E ::B3 
>»ı3E1 86 B9 FO 13 C9 80 DO 81 ::45 | 31659 OB 88 68 90 92 00 BB Q® :;6F | >18D1 84 88 10 38 69 7E 89-30 ;:A1l 
>13E9 68 AC C5 19 09 80 08 00 1:83 | >1661 50 BO 8B GB 88 88 FF 7F ::EB | »18D9 28 28 2a 38 38 3C 98 8C ::29 
»13F1 88 88 98 00 08 aD aD 99 >1669 IF 07 81 86 98 80 FF 9F ::A9 | »1aEı 12 28 6C 38 62 FC 08 38 »4El 
>13F9 88 08 06 08 2a 89 AA AB ::OC | 31671 CF EF F? 6F IF 87 FF 86 ::93 | >18E9 88 08 48 18 18 38 Q8 08 ::59 
»1401 @8 0@ 00 08 BB 80 00 QB ::15 | 1679 90 08 80 82 20 00 80 8A ::8F | >iBFı 18 IC 7E 18 18 18 18 88 ::03 
>1409 08 08 BB BG Q@D 90 08 28 ::ıD | >16B1 Ba 80 00 B0 80 80 08 08 ::97 1 >18F9 18 30 77 7F 30 18 80 08 ::22 
»1411 08 06 08 00 da 02 80 88 ::25 | >16B9 80 20 HR 2@ 09 Ba aa 00 ::9F | >1901 88 00 AO 20 008 90 80 18 ::9A 
>1419 80 90 20 98 28 26 08 FF ::25 | >1691 90 a2 80 00 00 00 00 9Q ::A7 | >1909 10 19°18 86 O0 18 BO A4 ::4A 
>1421 C@ ra 96 86 87 a6 85 FF ::67 } 31699 U8 GB 2a 2a 09 08 0@ FF ::A? | >ı1911 66 22 88 08 008 98 08 42 ::E4 
>1429 80 va 00 a® FF 08 86 FF ::30 $ >y16Al FF FF FF FF FF FF FF FF ::93 | 31919 42 FF 42 FF 62 62 00 1B ::2A 
>»1431 03 05 09 11 >16A9 F& FO EB EO CO CO 80 FF ::67 | >1921 2E 48 &C 12 7C 1B 00 22 ::08 
>1439 00 04 008 00 98 00 Q@& B4 ::6D | >16B1 83 Q7 OF 1F 3F 7F FF 88 ::AF | >1929 64 085 10 30 64 46 BB IC ::1E 
21441 84 84 84 84 84 64 84 FF ::BD | 1659 808 00 00 20 080 28 00 FF ::C7 | 319231 42 24 38 65 62 3 üB 02 ::84 
>1449 C3 BD BD BD BD C3 FF 21 ::89 | yısci1 FF FF FE FE FC FC F8 81 ::6A | 31939 0C 18 00 988 da OB 80 @8 ::BE 
>»1451 21 21 21 21 21 21 21 88 ::®1 | >16C9 93 67 OF IF 3F FF FF FF ::BF | >1941 19 20 28 30 18 0C 00 18 ::Q0A 
»1459 80 @8 68 08 08 88 00 85 ::95 | >16D1 FF FF FF FF F9 El 81 0@ ::87 | 31949 98 84 84 8C 18 30 808 08 ::46 
»1461 86 87 88 90 AO CO FF 88 ::7A | >16D5 00 08 08 00 88 OB 08 F9 ;::B7 | 91951 66 3C E7 3C 66 00 80 08 ::EB 
>1469 66 FF 98 088 B8 88 FF Al ::7C | »16EL F3 F? EF F6 F8 EO FF FE ::7E | 31959 10 10 7E 18 18 88 08 80 ::F4 
>»1471 61 Ei 11 89 65 83 FF 88 >16E9 FB EB 80 08 00 02 FF 01 ::38 | 31961 08 08 80 00 18 18 30 08 ::AA 
»1479 08 Ba 00 20 98 90 DO 88 ::BD } »ı5F1 01 01 O1 @1 81 81 FF 90 ::15 |>1969 a8 08 7E 08 08 U8 Q8 Uß ::FC 
21481 Q8 04 DB 00 90 90 2a 238 ::95 | >16F9 80 00 00 00 Ba au 88 00 ::@F | >1971 @U 00 98 00 18 18 PA 08 ::92 
>1489 00 BR 00 88 208 080 08 >1791 08 008 08 00 0Q 20 80 08 ::18 | 31979 92 94 98 18 38 68 68 3C :;24 
>1491 80 BO 90 OB 20 20 00 2D ::A5 | „1709 0a 20 90 20 80 00 08 GB ::20 | 1981 46 4E 52 62 62 IC 08 19 ::cCC 
>1499 88 00 @0 2B 02 09 00 80 ::AD | 31711 20 98 00 20 00 08 80 08 ::28 |>1989 18 30 19 19 19 7E 80 3C ::EE 
>i4Al 3F SF 6F 77.78 79 7A 08 ::5F | >1719 80 00 98 28 00 00 29 FF ::28 | >1991 44 04 OC 20 60 7E 88 3C ::8E 
»14A9 FF FF FF FF 80 FF FF 88 ::A6 | >1721 60 80 90 68 80 80 B8 FF ::38@ | 1999 44 @4 1C 86 66 3C 08 64 ::FO 
>14B1 FC'FA F6 EE IE 9E 5E 08 ::2B | >1729 80 08 00 01 87 IF 7F FF ::92 |>ı9R1 oc 1C 64 ?F 86 85 80 3E ::5B 
>14B9 08.28 08 80 88 90 80 7B ::A5 | >1731 087 1F 6F F7 EF CF 9F 08 ::94 | >19A9 28 30 0a 06 66 3C 088 AC ::c4 
>14Ci 7B,7B 7B 7B 7B 7B 7B 08 ::49 | >1733 202 08 00 08 08 00 90 B1 ::58 | >19B1 25 28 7C 66 66 3C AB 7E ::92 
>»14C9 30'442 42 42 42 3C 80 DE ::@D | 31741 87 9F FF FF FF FF EFF FP ::FC | >19B9 44 08 18 18 18 18 88 3C ::9E 
>14D1 DE, BE DE DE DE DE DE 88 ::2D | »1749 FE FC F8 FÖ EB CO 01 1F ::5D | >19C1 46 42 3C 66 66 3C 06 3C ::36 
»14D9 80 08 00 88 Q@ 98 Ba 7A ::BN | 31751 3F 3F 7F 7F FF FF FF 08 ::8C | >19C9 46 A2 3E 82 62 3C 80 DB ::C0 
»14EI 79 78 77 6F SF 3F 80 FF ::CC | >1759 00 00 00 908 96 88 aa FF ;:68 | yı9Dt 00 19 08 08 18 80 08 BU :;92 
>14E9 FF 8@ FF FF FF FF 00 5E ::DA | >1761 FE FC F8 F@ E® Cö FF 01 ::F? | 31909 08 18 06 00 10 18 38 @C ::B2 
>»i4Fl 9E IE EE F6 FA FC 00 086 ::4B | >1769 03 83 07 087 BF OF FF FR ::50 |} s19E1 10 28 60 30 1B OE 08 00 ::F6 
>14F9 00 88 09 00 20 88 80 08 ::0n | 21771 FF FF FF FF FF FF FF 00 ::6C | 31959 08 7E 08 7E 80 20 00 38 ::76 
>1501 98 08 00 20 92 aD AB 00 ;:ı6 | >1779 BR BB 00 BO Da BO 28 089 ::90 | yıgrı 2B 9A 86 BC 18 78 89 3C ;:84 
>1509 88 Ra 080 Ba Ba aa 99 99 ::ıE | >1781 aQ 00 00 00 08 80 BO 98 ::98 | S1s9Fa 42 82 DC 18 B6 18 BB FF ::64 
1511 08 08 98 02 08 GB AL 09 :;:26 | >1789 90 98 00 20 28 Aa 00 99 ::AQ | yıası 7F 3F IF BF 07 83 BI FF ::ES 
»1519 B@ Bd BB BO 88 88 GB 24 ::4E | >1791 80 28 90 09 20-0a 00 08 ::AB 31A09 FE FC F& FO EB CO 80 8R ::21 
»1521 24 25 26 38 68 906 91 99 ::F5 | >1799 8 98 20 00 92 208 9A FF ::AQ >1A11l CO E®ß FA FB FC FE FF 01 ::3C 
»1529 E7 81 00 66 @B 18 99 24 ::9E | >17Aı EB Fa F6 EFF? F3 F9 FF ::72 | )1A19 83 07 OF 1F 3F ?7F FF 86 ::1B 
»1531 24 A4 654 1C 06 OF BF 08 ::AF | >17A9 00 08 08 86 EB Fö FE FF ::DA | sıR2ı 88 Ca CO E® FO FC FF FF ::84 
»1539 00 00 80 @B ad 08 2B 60 :;4E | >17B1 Q1 GL 1 21 81 P1 BI 08 ::E4 | »1A29 FC FO EB CO CO 80 80 Bl ;:97 
>1541 18 06 a1 81 3F 41 88 Bl ::CA | >17B9 00 60 20 00 00 08 08 FB ::98 | sıR31 01 03 03 07 OF 3F FF FF ;:2D 
»1549 66 18 81 66 18 80 C3 86 :;8C | >17C1 FC FC FE FE FF FF FF FF ;:A4 | 31A39 3F OF 07 03 03 21 81 7F ;:E5 
>»1551 18 68 88 BB FC 82 81 00 ::BD | >17C9 7F 3F 1F OF 087 03 81 81 ::3A | yıaaı 7FE 3F 3F 1F OF 63 80 FE ::DE 
»1559 80 20 20 08 80 OP 88 98 ::EE | >17D1 Ei F9 FF FF FF FF FF 00 ::A2] „1249 FE FC FC FB FO CD 00 28 ::5D 
>1561 88 9C 9E AC 20 18 OF 3C ::59 | >17D9 88 90 09 20 00 00 08 FF ::E8 | ıası CO FO FB FC FC FE FE 06 :;B5 
»1569 3C 3C 00 3C 24 24 FF 89 ::EF | >17E1 FF FF FF FFFFFFFF 80 ::DC | „1as9 83 OF IF 3F 3F 7E 7F ERIR: 

»1571 11 29 49 32 04 08 FB 808 ::698 | >17E9 CO CO Ed EO F@ FO FF FF ;:Al >»1A61 88 FF 00 FF 00 FF 98 08 ::6F 
»1579 00 98 08 00 00 00 00 00 ::8E | >17F1 7F 3F IF BF 07 083 FF 08 ::CC } yya69 FF 08 FF 08 FF 00 FF AR :;C9 
»1581 00 008 20 00 00 08 00 00 ::96 | >17F9 08 80 00 00 20 08 09 21 ::18 >1A71 AR AR AA AA AA BA AA 55 ::CB 
31589 08 00 02 08 00 90 09 08 ::9E | >1801 42 99 91 91 99 42 3C 3C ::91 >1A79 55 55 55 55 55 55 55 92 ::6F 
>1591 00.00 00 80 2a 00 00 OO ::A6 | >1889 A6 42 7E 62 62 62 00 7C ::83 | yıAa1 92 92 92 92 92 92 92 49 ::DB 
>1599 20 00.00 00 20 8a 09 49 ;:F6 | >1B11 46 42 7C 62 62 7C 08 IC ::Al | „ınBg 49 49 49 49 49 49 49 55 ::47 
»15A1l 48 25 26 98 60 FO Fi 18 :;71 | >1B19 AE 40 60 60 62 3C 88 7C ::Di | „1A9ı AR 55 AR 55 AA 55 AR AA ::97 
>15A9 E7 81 66 99 66 18 81 92 ::E2 | ?1821 46 A2 62 62 62 7C 00 7E ::79 | yaAgg 55 AA 55 AA 55 AA 55 98 :; FD 
>15B1 12 A4 64 IC 86 09 89 Ba ..CF | >1929 20 Ab 78 68 68 7E OB 7E ::AD | „ıARı 90 08 IF ıF 18 18 18 08 ::44 
>15B9 00 08 80 90 2D oa 9a 60 ::CE | >1831 AB 48 78 58 68 60 AG 3C ::Fl | „]AAO 80 BO FA Fa 18 18 18 18 ::FB 
»15C1 18 86 @1 @1 3F 41 88 FF ::3R | 1839 4E AB AE 62 62 30 00 46 ::13 | „)aBı 18 ı8 Fa Fa 08 00 00 38 ::0B 
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C16 . SA 5/89 51 











>1A89 16 18 IF IF 
»1ACı 08 08 CO 38 19 
>ı1AC9 08 88 83 OC 09 10 18 
>1AD1 18 98 8C 83 88 29 88 
>ıAD3 88 18 38 ? 
»ıAEı 09 080 19 18 00 DO 98 
>1AE9 98 3C 24 24 3C 08 08 
>ıAFl 
»ıAF9 81 Bi 81 81 81 Bl FF 
>1B01 
21809 
>1Bil 81 
>1819 
>iB21 
>1829 
>»ıB31 92 24 49 92 24 49 92 


>»1B39 F@ 88 88 80 Bd 90 Da 


>1B41 
>1B49 86 


>1B51 98 
>ıB59 08 89 29 
»1B61 80 08 88 OF 
>1B69 88 08 00 88 


@@ ::AB | >1B71 00 a8 08 09 
08 ::A9 | >1879 FF 00 00 08 
08 ::A3 | 31881 98 FF FF 08 
FF ::11 | >1B89 08 06 88 FF 
FF ::99 | >»1B91 98 08 28 08 
FF ::58 | >1B99 FO Fö FO FB 
FF ;:68 | >yıBA1 OF BF Or or 
Ba :;82 | »1BA9 FO OF BF FA 
FF ::B2 | >ıBB1 OF FO FO BF 
92 ::BO | »1BB9 FO 28 08 OF 
49 ::16 | »ıBCı OF 00 88 FO 
Fa ::31 | »1BC9 88 FA FB 08 
@F ::BC | »1BD1 88 OF OF 98 
08 ::6R | >1BD9 6F 08 08 80 
a8 ::ı4 | >ıBEi 88 06 88 98 


08 08 80 886 ::D7 | >ıBE9 98 
FO 80 80 88 ::E4 | >ıBFi 83 
ar 080 08 88 ::09 | >18F9 Co 
a8 Fö FO 99 ;:BAa 
86 öF OF FF ::47 





Der Bereich von $ 1001 
bis $ 1f1f Ist mit 8.00, 


08 11 89 05 93 BF OF ::67 
05 89 11 00 #8 08 FO ;:FB 
Ad 90 86 a8 BB 08 08 ::EA 









FF FO ::1F der von $ 1120 bis 9 201 mit 
or or or ro 20 zu füllen. 
Fa @F 6F BF :: Ak - 
er FO FO FB ::C2 ; 
BF 08 88 OF ::C3 | ?28F9 20 20 29 26 26 28 29 00 ::99 
Ya 08 00 98 :;5B | ?2101 00 08 08 Be 98 D8 98 88 ::22 
BO OF OF 88 ::57 | ?2109 00 90 00 98 Qu 28 08 24 ::4A 
20 FO FO OF ::DF | ?2111 B3 Bil 22 4E 22 A7 39 38 ::61 
08 FO FO 80 ::33 | >2119 38 80 21 21 34 83 EB 080 ::BF 
Ad Ca FO 08 ;:94A ENDE DES LISTINGS (OVM) 





as Programm DEBUG- 
GER V1.1 ist als Ergän- 
zung zu TEDMON und GENE- 
SIS gedacht. Das Programm 
wird geladen wie ein Basic- 
Programm und auch so gestar- 


tet - mit LOAD und RUN. Da- * 


nach gibt es eine kurze Be- 
fehlsbeschreibung aus und 
ermöglicht die Wahl einer 
neuen Startadresse, woraufhin 
es sich dorthin kopiert und 
selbst aktiviert, Es kann sogar 
eine Startadresse ab $8000 
gewählt werden. Der Debugger 
liegt dann "unter" dom ROM, 
und es jäßt sich der gesamte 
freie RAM-Bereich von $ 1000 
bis $7FFF nutzen, was nicht 
zuletzt die direkte Zusamme- 
narbeit mit GENESIS ermö- 
glicht. Zusätzlich werden noch 
die Bereiche von $065E bis 
$06EB und $00D0 bis $00E8 
belegt. Das Programm arbeitet 
ohne Interrupt. Dieser bleibt 
dadurch frei verwendbar. 

Der Debugger kennt fünf 
Befehle: 

Bnr ADR1 (ADR2): Breakpoint 
Nr. 0-3 bei ADR1 (hexadezimal) 
mit optionaler Verzweigung 
nach ADR2. Das dort befind- 
liche USR-Programm muß mit 
ARTS abgeschlossen sein. Es 
übergibt dem Debugger ein 
gesetztes CARRY-BIT für Ab- 
brechen bzw. ein gelöschtes 
CARRY-BIT für Fortsetzen des 
getesteten Programms. Die 
Registerinhalte liegen dabei 
auf dam Stack und können mit 
dem nachfolgenden Schema 
abgefragt werden: 


52 


tx 

Ida $0100 + n,x 

Dabei kann die Nummer für n 
zwischen 3 und 8 liegen. Da 
mit werden der Reihe nach das 
Y-,X-, A«, Status-, PC-Low- und 
PC-High-Register angewählt. 

Hinweis: Der Break wird von 
der CPU als Zweibytebefehl 
behandelt, was dazu führt, daß 
dar auf den Stack gebrachte 
Programmzählerinhait auf das 
übernächste Byte weist - also 
Breakadresse + 2. 

C.nr: Löschen des Breakpoints 
Nr. 0-3, unter Wiederherstel- 
lung des getesteten Pro- 
gramms. 

R: Führt zur Registeranzeige 
des Monitors. Der Monitor- 
Befehl "X" führt zurück in den 
Debugger. ; 

X: Zurück ins Basic. Der De- 


Fehler 
haben 


keine 
Chance 
mehr! 





bugger kann mittels SYS 218 
neu initialisiert werden. 

("Pfeil nach oben”) Präfix Wert: 
Gibt einen beliebigen Zwei- 
byte-Wart in allen drei Zahlen- 
formen -dec., Hex., bir. - aus. 
Es werden die üblichen Präfixe 
$ für hex. und % für bin. er- 
wartet, Neben Adressenum- 
rechnungen kann vor allem 
auch der Fiaggenstand expli- 
zit aus dem Binärformat abge- 
lesen werden. Dazu folgende 
Schablone: 


NV. 8 Dh zZ € 


’ 


Da dar Debugger auf engste 
Zusammenarbeit mit dem 
TEDMON angewiesen ist, wer- 
den seine Befehle durch 
Großbuchstaben dargestellt. 
Der Versuch, vom Monitor aus 


>109a 00 
>ı90B 38 
>1018 47 


»1928 4C 
>»102B 98 
>»18308 9F 
>1838 FB 
>1040 EA 
>1048 28 
»1856 23 
>1858 BD 
>1068 EB 
>»1868 288 
>1079 C4 
>1078 28 
>1088 AB 
>3@88 F3 
»1890 F@ 
>1898 96 


>1818 28 


>10RA8 FO 


mit "x” zum Dubugger:zu ge- 
langen, führt also nicht zum 
versehentlichen Abbruch des 
Debuggers und damit zum 
Warmstart des Basics. 

Zur Eingabe des Debuggers 
verwenden Sie bitte den MC- 
Checker an Adresse 12600. 
Das Abspeichern erfolgt mit 
S"DEBUGGER",8(,1),1001,1 
SBE. ö 


Programmname: Debug- 
ger V1.1 

Computertyp: 
C16/116/Plus/4 
Lauffähig auf: Datasette 


und Fioppy 
Besonderheiten: 
Sinnvolle Ergänzung zu 
Tedmon und Genesis 





BEREIT) 


MC-LISTING MIT CHECKSUMMEN OVM1B 


25 18 C5 87 
35 36 28 3A 20 
55 45 
46 55 


68 AO DA SD 08 a3 A9 ::7B 
8D di 83 A3 SE SD 16 ::BD 
A9 06 BD 17 83 A2 08 ::EE 
67 19 AQ 00 28 AQ 12 ::53 
EO 17 DB F3 FA 17 OD ::05 
ÖE 20 29 29. 28 28 28 ::BC 
45 42 55 47 47 45 52 ::68 
D6 31 2E 31 8D A9 BD ::E9 
a0 20 A@ 12 A2 080 96 ::66 
Aa 81 28 AQ 12 C9 OD ::Cıi 
09 9D BB 82 ES EQ 59 ::DB 
EF CA 86 F4 28 CD 18 ::2B 
DC C9 28 FO FE? A2 94 ;::3B 


Ci16 - SA 5/89 








PROGRAMHLIE 


>18A8 DD CB 18 FO 85 CA 16 FB ::ıA ; 31928 FO 09 96 38 EO 05 AB 18 ::AB | >14C0 20 55 45 42 45 52 47 49 ::F3 
>10B0 38 AC aA OA AA BD 97 12 ::3F | 31330 E® 36 4E B9 D9 86 85 F1 ::DD | »ıace 42 54 20 44 45 AD 20 CA ::5D 
21088 AB BD 96 12 48 60 A9 3F ::D3 | 313396 19 DA 26 FO 44 B9 DA 86 ::BA | >14D0 45 42 55 47 47 45 52 28 1:97 
>10C8 AO 08 28 AB 12 AC 7E 18 ::64 | »1348 85 F2 SC FA 87 A9 06 48 ::B3 | >14D8 45 49 AE 20 47 45 2D OD ::Di 
>18C8 DA C2 D2 CI SE BE F3 87 ::BD | >1348 A9 Al 48 58 6C Fi 00 78 ::08 | >14EB 28 20 53 45 5a 5A 54 43 : 98. 
>10D® A6 F3 EA F4 BO OB BD a8 ::C5 | 1350 Ba 2F AC F4 07 B9 D7 06 ::CF | >14E8 53 20 C3 al 52 52 59 42 ::El 
»ı0b6 82 EG F3 86 AE F3 87 28 ::38 | 31358 85 Ai BO DE Q6 85 A2 B9 ::2F | >14F@ 49 54 20 A6 55 45 52 20 :: 2 
>10E0 60 A9 08 FO F6 AS 86 ED ::36 | >1369 DR 6 AQ 08 91 Al AE 58 ::57 | >14F8 CI 42 42 52 55 43 48 2C ;:F2 
>10E8 @B 03 8D 01-03 A9 AC BD ::2A | >1368 05 9A 30 BD 05 ®1 E9 @2 ::DE | >1508 28 42 5A 57 28 OD 20 28 :: Fi 
>ı0F@ 16 03 AS FA 8D 17 03 AG ::47 | >1379 an 05 ®1 BD 96 @1 E9 @® ::A4 | >1508 45 A9 AE 20 47 45 AC AF ::EB 
>18F8 63 AC A9 12 26 Ch 18 FO ::44 | >1378 90 06 @1 68 AB 68 AA 68 ::75 | >1310 45 53 43 48 54 45 53 20 :: 88 
>1100 BD CS 20 FO F7 E9 30 38 ::99 | »138@ 48 AC AC FA 00 08 20 88 ::iF | >ısıR C3 41 52 52 59 42 49 54 ::98 
21108 85 C9 84 B@ Bi AA BD 3E ::B8 | »1388 00 00 00 08 00 00 @8 @® ::9B | >1520 20 46 55 45 52:20 46 AF ::Ba 
1110 11 Ad 20 CA 12 B@ A7 AS ::25 | 1300 00 00 00 20 28 0@ 00 00 ::%3 | >1528 52 54 2D aD 20 26 53 45 ::BF 
>1118 F1 99 D7 086 A5 F2 99 DB ::BD | 1396 AD 3E FF 56 68 78 6D AF ::94 | >153@ 54 5A 45 4E 20 4445 59 ::07 
>112@ 86 A2 0@ Al Fi 99 DB 86 ::77 | »13AQ FF.60 78 8D 3F FF AC 42 ::67 | >1538 26 47 45 54 45 53 54 45 ::DO 
»1128 A9 86 81 Fi 28 C4 12 BO ::5F | >13R8 19 A2 08 86 F3 20 CF FF ;:47 | >1540 54 45 4E 28 DB 52-4F 47 :: FA 
>1130 OA A5 F1 99 DI 06 AS F2 ::46 | »13Ba C9 8D FO 89 9D 00 02 EA ::F9 | >1548 52 Al Ab AD 53 2E 20 86 ::DF 


31140 0A OP AB 02 A2 08 ac A9 :;E7 az mr“ MGGER" ) MD DH AEIZTEH mm m 
FEHLEN BC ER ISRAELS 


>1148 12 28 CD 19 FO Bi C9 28 ;:A? } 

>1156 F& F? .E9 30 30 BI C9 984 ::6F SAL }) I 
>ı158 BO B1 AA BD 3E 11 AB BY ::69 

>1168 D? B6 19 D8 06 FO Da BI ::51 | KANN HAIE 
>1168 D7 86 85 Al E9 DB 066 65 ::6E 

»1170 A2 A2 88 B9 DR 86 81 Al :: > 

1178 A9 08 99 D7 96 99 DB B6 : 
>1188 99 D9 86 99 DA 86 FO B3 ::EO 
»1188 20 CD 10 FB RF C9 20 FA :: 
>i198 F7 C9 24 De @B 28 CA 12 ::B9 
>1198 Bö BE C9 85 BO BA 99 18 ::08 





»11A® C9 25 DO 87 20 ıD 12 BB ::9C 
>»11A8 AF 98 05 26 42 12 BO AB ::DD 
>11BQ AG 08 A9 BD 20 AB 12 AG ;:9E 
>11B8 Fi AS F2 AB 94 20 AO 12 :: IE 


>11CQa AO 22 A9 OD 20 AB 12 A9 ::C6 


>i1ca 24 AO 008 20 AB 12 A2 B1 ::BF 
>ı1lDB B5 Fl 29 FO 4A AA AA AR ::37 
>1ı1D8 AB 81 8C FA 87 C9 BA 98 ::9E 
>11E® 92 69 B6 69 30 AB 28 28 ::2B 


>11EB AB ı2 B5 Fi 29 OF CE FA ;::69 
>11F® 87 30 EA CA 1a DR Ad 80 ::DA 
>11F8 A9 OD 28 AO 12 A9 25 AG :: FF 
>1200 88 28 AG 12 A2 10 06 Fi ::B6 
1208 26'F2 BB @4 A9 36 DO 02 : 
»1216 A931 AB 80 28 AB 12 CA :; 


>1218 D® EC 4C 7E 18 A9 98 85 ::1C 
>»1220 FI)85 F2 A2 11 28 CD 18 ::BB | >1388 EO 59 90 Fı CA 865 F&4 60 ::93 131558 28 DB FB 0D 20 28 C9 28 ;:@F 


>»1228 F@ 14 C9 31 D@ 89 26 Fi ::49 | >13C8 26 DB FB 93 @8 GE AD 28 ::B7 | 31556 AE 52 28 3A 20 CA 45 52 ::52 
>»1238 26'F2 CA D® FO FO @3 C9 ;:C1 | >13C8 20 28 28 28 28 3E AQ CA ::AF | 31568 20 C2 52 45 Ai 4B 58 AF ::D2 
>1238 38 18 FO F2 DO 02 18 68 ::96 [| >13D0 45 42 55 47 47 45 52 2D ::6E | >1568 49 AE 54 20 AE 52 28 38 ::BO 
>1248 38 68 A2 @@ 86 Fi 86 F2 :;AE | >13DB C9 AE 46 AF 53 48 45 45 ;:BB ! >1578 2D 33 28 57 49 32 4a 28 ::09 
>1248 4B 20 6D 12 68 R@ 1C 38 ::1D | >I9EO 5a AB 3C OD BD 20 28 CA ::70 | >1578 47 45 2D ED 28 20 Al SF ;:05 
21258 E9 30 90 17 C9 OA B® 13 :;48 | >13EB 45 52 20 CA 45 42 55.47 ::C4 | 31580 45 53 43 48 54 26 55 4E ::90 
21258 65 Fi 65 F1 AS F2 69 B@ ::C8 | >13Fa 47 45 52 28 D6 31 2E 31 ::68 | Yı508 44 20 44 41 53 20 DB 52 ::90 
21268 85 F2 B& 07 20 CD 18 D® ::65 | >13F8 28 46 55 45 52 28.50 AC .;:BA | >1598 AF 47 52 41 AD AD 20 57 ::63 


>1268 DF 18 68 38 60 AS F1 05 ::86 | >1408 55 53 34 2C 2@ 4B 45 4E ::16 | >1598 49 45 44 45 52 2D @D 20 : :63 
>1270 Al AS F2 85 A2 06 Fi 26 ::6C | >1408 4E 54 20 @D 28 286 46 55 ::98 | >i5AG 20 48 45 52 47 45 53 54 ;:62 
21278 F2 BO FO 06 F1 26 F2 BO ::7B | >1418 45 AE 46 28 C2 45 46 49 ::Di | >15A8 45 AC AC 54 2E OD 20 28 :: 


>1260 EA AS Fi 65 Al 85 Fi AS ::2F | >1418 AB AC 45 2E 20 BD 20 28 :: : 
»1288 F2. 65 A2 85 F2 B@ DC 86 :;:5E | >1420 C2 26 4E-52 20 41 44 52 ;:FA | 31588 52 54 2@ 5A 55 52 26 D2 ::94 


»>12938 Fı 26 F2 Ba D& 66 E4 18 ::9F | ?>1428 31 28 28 41 4a 52 32 29 ::0F | 31508 45 47 49 53 54 45 52 Al ::57 
>1298 FB 18 41 11 48 11 87 11 ::D3 | >1430 3A 2a C2 52 45 41 AB 50 ::BB 
>12AO 8D F2 07 A9 90 48 A9 DA ::CB >1438 AF 49 4E 54 20 4E 52 20 ::19 
>i2A8 48 98 @A AB B9 BB 12 48 ::AD | >1440 38 2D 33 20 OD 28 20 A2 ::E8 
>12B0 B9 BA 12 AB AD F2 07 AC ::E3 | ?1448 45 49 20 41 44 52 31 2C ::8E 
>12B8 D® 88 Di FF. CE FF 57 FA ::0ıA | ?1458 29 AD 49 54 20 AF 50 54 ::93 
>1ı2C0 02 80 5E A4 A9 00°85 Fi ::F6 | ?1458 49 4F 4E 41 4C 45 52 20 ;:99 
>»12C8 85 F2 8D F4 07 28 CD 10 ::BB | ?1468 D6 45 52 5A 57 45 49 47 ::BA 
>»12D® Fö 37 C9 20 FO F7 c9 28 .:ı4 | ?1468 55 4E 47 OD 28 28 4E 41 ::0@0 
>»12na FO 2A C9 3a 90 2B C9 47 ::D2 | >1478 43 48 20 41 44 52 32 2E ::C9 
>12E@ BO 27 C9 3A 90 06 C9 Al ::AE | ?1478 20 CA A1 53 20 44 AF 52 ::34 
>12EB 90 1F E9 OR E9 2F 9A HR ::EQ | ?1480 54 20 42 45 46 49 4E 44 ::58 
>12F@ Oh OA A2 04 @A 26 Fi 26 ::F9 »1488 AC 49 43 48 45 20 QD 28 ::D7 
>12F8 F2 CA DA F8 EE F4 87 20 ::6F | >1498 20 D5 D3 D2 DO 52 AF 47 ::8C 


>»i3@8 CD 18 DO D2 AD FA 87 18 ::C2 | >1498 52 41 4D 4D 20 AD 55 593 ;:F4 
»1308 6@ 38 6@ HA BE 58 085 AG ::EC | >14A0 53 20 AD 49 54 20 D2 DA :;14 | >15CB AE 5A 45 49 47 45 28 44 ::D9 


>1318 DOF 38 BD 05 Bi FS D7 86 ::D9 | >14A8 DI 20 41 42 53 43 48 AC ::23 >15D8 45 53 26 OD 28 28 CD AF ::D7 
>1318 8D F2 87 BD 86 81 F9 DB ::58 | >14B® 49 45.53.53 45 AE 2E 86 ::4B | >15D8 4E 49 54 af 52 53 2E 20 ::D3 
>1320 86 DO 87 AD F2 87 C9 92 ::15 | >14B& 20 D6 FB OD 20 20 C5 53 ::ıC | >15E0 C4 45 52 26 CD 4F AE 49 :; 
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42 
58 
20 
208 
20 
55 
28 
32 
53 
28 
5 


AR 
26 
FB 
52 
43 
45 
20 
DA 
49 
43 
45 
20 
49 
3 
4E 
49 
a5. 
0a 
FB 
D6 
D7 
49 
4E 
5A 


46 
28 
46 
55 
55 
47 
D& 
45 
c2 
45 
47 
4E 
DI 
45 
4 
8D 
4E 
ra 


45 
68 
55 
52 
AD 
45 
28 
43 
Aal 
52 
45 
4E 
D3 
53 
ac 
20 
2E 
FB 
28 
49 


>15E8 
>15F® 
>15F8 
1608 
>1688 
>1618 
?1618 
1620 
1628 
21638 
1638 
>1648 
>1648 
?1658 
21658 
>166B 
?1668 
21678 
>1678 
>168®8 
>1688 
>1698 
1698 
>16A0 
>16AB 
»16BQ 
>16BB 
»16CB8 
>16C8 
>16DB 
>L16D8 
>16E8 
>16EB 
>16FB 
>16FB 
1708 
>1708 
>1710 
»1718 
21728 
>1728 
>1730 
>1738 
>1748 
>1748 
>175q@ 
1738 


54 
ac 
D8& 
48 
45 
c4 
2E 
20 
28 
49 
ca 
0D 
4D 
32 
49 
53 
37 
®D 
De 
28 
208 


52 
27 
aD 
54 
4B 
42 
8D 
55 


42 













48 ::@D | >1768 CA 45 52 20 CA 45 42 55 ::29 | >18DB 12 AD. 12 B1 12 CE-12 08 ;:82 
280 ;:E9 >1768 47 4? 45 52 26 42 45 4C ::DA | >1BEO 13 A? 13 OP 11 13 11 AA ::5C 
45 ::41 »1770 45 47 54 28 44 41 48 45 ::D® | >18Ea 11 5C 11 89 11 96 11 AS ::98 
55 ::24 | >1778 52 20 41 8553 53 53 45 52 ::3C | >18F@ 11 AC 11 B5 11 BE 11 C5 ::EO 
28 ::25 >1788 44 45 AD OD 22 20 44 49 ::84 | >18FB 11 CC 11 ES 11 FB 11 92 ;:4ı 
52 ::8E | >1788 45 26 C2 45 52 45 49 43 ::CD. | >1908 12 15 12 26 12 65 12 4A :;A9 
aA ::A3 >1790 48 45 28 28 48 45 5B 29 ::2F | 31908 12 1B 12 9E 12 67 10 Ad ::4B 
4B ::C5 >1798 28 30 36 35 45 2D 3@ 36 ::@C | >191@ 12 A® 12 AQ 12 CD 10 CB ::a9 
53 ::Bl | ?>17AQ 45 42 20 55 4E 44 8D 20 ::AD | >13918.18 97 12 96 12 AB 12 7E ::85 
28 ::CF | >17A8 20 26 AB 45 50 29 20 38 ::29 | >1928 iO AS 12 CD 18 Ca 12 7E ::5B 
52 ::36 >17B0 36 44 38 2D 38 30 45 38 ::76 } >1926 i& A9 12 EA 18 FH 18 41 ::13 
20 ::6A | >17B@ 2E @D 06 28 D9 EB FB FB ::BE | >1930 11 48 11 BB 12 BA 12 CD ::45 
28 ::B3 | ?17CO F3 F9 28 DS FB 00 20 28 ::BE | >1938 10 CD 18 42 18 3E 11 CA ::8E 
28 ::99 >17C8 AE 45 55 45 20 D3 54 41 ::B@ | >1948 12 CD 198 3E 11 CD 18 CA ::EQ 
49 :: >17D8 52 54 41 44 52 45 53 53 :;:C9 | >1948 12 1D 12 42 12 AO 12 AU ;:89 
2® ::44 | >17D8 45 2@ AA 2F 4E 3A 08 20 ::F@ | >1950 12 AB 12 AB 12 AO 12 AB ::09 
@D ::3C | >17E0 A9 13 2a CD 10 Fa OF C9 ::FB | >1958 12 AQ 12 AG 12 CD 10 CD ::79 
20 ::6B | >17E8. 20 FO F7 C9 AA FB 07 C9 .::93 | >1960 18 6D 12 7E 1A 87 11 RAY ::C 
SE ::ı1A | >17F8 4E DB CF dl 67 19 20 DO ::CB | >1960 AQ 85 Y9F A9 13 85 AQ AY9 ::D9 
58 ::8C I >17F8 FB 80 28 20 42 49 54 54 ::FO | >1970 EB 65 FI A9 a8 85 F2 65 ::CE 
28 ::7D | >1800 45 20 Cı 44 52 45 53 59 ::05 } >1978 FA A9 11 85 F3 20 27 1@ ::2E 
4E ::C2 | >1886 45 20 41 AE 47 45 42 45 ::97 | >1986 A9 97 85 9F A9 19 85 A@ ::DD 
20 ::DC | >19810 4E 3A 00 28 A9 13 20 CA ::29 | >1908 A9 EA 85 Fi AQ9 86 85 F2 :;15 
20 ::CS | 31818 12 908 17 A9 82 208 D2 FF ::4B | >1998 A9 8D 85 F3 A9 88.85 FA ::57 
»2.::39 |] >1028 A9 3F 28 D2 FF A9 83 28 ::8D | >1998 28 27 180 A9 OA 85 9F A9 ::EA 
4E. ::BF | >1828 D2 FF R9 OD 28 D2 FF AT ::24 | >19A8 13 85 AQ AD 88 18 85 Fi ::CD 
31 ::55 | 51836 F6 17 C9 04 DB ES A5 F2 ::58 | >19AB AD 89 18 85 F2 AY C9 85 ::33 
®D ::27 |.>1838 C9 18 BO A2 99 DD DO @C ::5F | >19B0 F3 A9 92 85 FA A9 08 48 ::22 
49 ::8B | >1846 A5 Fi C9 42 B® 02 96 DI ::46 | >19H8 A9 D9 49 AC 27 10 2C 31 :413 
52 ::39 | >1848 DB 02 FO 64 38 DB A5 Fl ::C7 | >19C0 36 32 2C 34 2C 31 30 2C ::79 
SA ::87 | >1656 8D 84 18 EI A2 : - 

a5 2:90 | >1858 A5 F2 8D 85 

8D ::D7 | >1860@ 87 18 18 AD 

45 :;A4 | >1868 8D 88 18 AD 

4B ::6B | >1870 OD 89 iB C9 

48 ::B6 | >1876 A2 AD 88 18 

27 ::7C | 31888 DB 99 18 06 

28 ::A® | >18Ga GA 13 A2 08 

46 ::6B | 31698 ı8 85 Fi BD 

45 ::99 | >1898 18 BD OD 19 

41 ::67 | >18A8 Fi BD 2E 19 

@D ::4B | >18A8 91 F1 EA EB 

al ::FD ! >18B8 4C 67 19 59 

41 ::7F 1 >18B8 18 8C 18 9E 

20 ::®1 } >18C0 18 BA 10 C3 

4E ::FC | >18C8 1@ FD 10 2D 

28 ::72 } >18D8 11 96 12 98 





‚as Programm Diskstart 

sollte als erstes auf einer 
Diskette abgespeichert wer- 
den, damit es durch 
"SHIFT+RUN/STOP” gela- 
den und gestartet werden 
kann. Nach dem Start werden 
alle Filenamen der Diskette ge- 
laden und in Seiten zu je acht 
Namen aufgelistet. Es können 
"höchstens 255 Filenamen 99 
laden werden. Durch Betätigen 
der Tasten 1-8 kann dann das 
Programm mit der entspre- 
chenden Nummer geladen 
werden. Eine andere als die ar- 
laubten Tasten blättert weiter 
zur nächsten Seite. Nach der 
letzten Seite wird automatisch 
wieder die erste angezeigt. 
Eingegeben wird das Pro- 
gramm mit dem MC-Check- 
summer, Diesen lagen Sie bitte 











an Adresse 12000. Nach der 
Eingabe verlassen Sie den 
Checksummer durch Eingabe 
von "X+RETURN”, geben 
"POKE46,22" ein und spei- 
chern das Programm mit 
DSAVE"DISKSTART” ab. 


Programmname: Diskstart 

Computertyp: 

C16/116/Plus/4 

Lauffählg auf: Floppy ; 





Besonderheiten: Erhöht SFR 

den Komfort im Umgang mit BER Listing 

der Diskstation MC-LISTING MIT CHECKSUMMEN OVM1® 
»19001 35 18 ®8 08 9E 34 31 35 ::B3 
»1809 31 3A 14 14'14 14 14 14 ::52 
>1811 14 14 44 49 53 48 53 54 ::93 
>1019 41 52 54 20 28 43 29 20 ::03 
>1621 42 59 20 AF 52 45 41 523 ::D8 
>»1029 20 42 55 53 59 AA Ai 45 ::72 
»1031 47 45 52 80 @® 20 20.10 ::68 
>»1039 13 A9 67 BD 26 83 A9 80 ::B6 
»1041 ab 3B 85 A9 71 8D 15 FF ::15 
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v- 


>19849 
>1851 


1059 


>1061 
1069 
>1871 
51979 
>1081 
>1889 
>»10891 
21099 
>10A1 
>1OR9 
>1@B1 
>18B9 
>10C1 
>19C9 
>10D1 
>10D9 
>L0E1 
>10E9 
>1@F1 
>10F9 
>1101 
>1189 
>1111 
>1119 
>1121 
>1129 
>1131 
>1139 
>1141 
>1149 
>1151 
>1159 


>1161: 


>1169 


>1171 
21179. 


>1181 
>1189 
>1191 
>1199 
>11A1 
>11A9 
>11B1 
>11B9 
>11C1 
>11C9 
>11D1 
>11D9 
>ı11El 
>11E9 
>11F1 
>11F9 
?1201 
>1209 
>1211 
>1219 
»1221 
1229 
>1231 


E6& D7 
24 D4 


68 68 
AS: D7 
AF. FF 
46 49 
55’4E 
7m a1 
aD’ ı1D 
1D iD 
a0 28 
2D 28 
e1 c9 
D9 29 
09 30 
24 2A 
86 DI 
c6 D3 
a9 91 
FF Ag 


ey 





Di 4C 
19 13 


23 20 
E4 28 


28 D2 


>1239 
>1241 

>1249 
1251 
>1259 
31261 
31269 
>1271 

>1279 
>12B1 
1289 
>1291 

>1299 
>ı12A1 

>12AY 
>12B1 
>1289 
>12C1 

>12C9 
»12D1 

>1209 
>12E1 

>12E9 
>12Fl 

»12F9 
>1301 
31309 
>1311 

>1319 
»1321 
>1329 
21331 

>1339 
>1341 

21349 
»>1351 
21359 
>1361 
>1369 
>1371 

>1373 
>1381 
>1389 
»1391 
»1399 
>13A1l 
>13A9 
>13B1 
>13B9 
>13C1 
1309 
»>13D1 
>13D9 
>13E1 
>13E9 
>13Fil 
>13F9 
>1401 
>1489 


>1Aa11 


>1419 
>1421 


PROSKRAHDE 


20 : 
::D3 
::DB 


28 
208 


DE Pur Por Pac Tr Pas Pre rn 
u. 


an de ae ar une 
um m a9 22 Ar 


[Due Pa Pe TE Tue Tue Pe rue Pasr P Zr Ps TEE Pe Per Peer Pr? 
Pr Pre Pe er no. 


:AF 


>1429 
>1431 
21439 
>1441 
>1449 
21451 
21459 
>1461 
21469 
>1471 
>1479 
1481 
>1489 
31491 
»1499 
>14A1l 
>14A9 
»14B1 
>14B9 


>14C1 


>14C9 
>14D1 
>14D9 
>14E1 
>14E9 
>14F1 
>14F9 
>1501 
31589 
>1511 
>1519 
>1521 
>1529 
>1531 
31539 
>1541 
31549 
>1551 
31559 
»1561 
31569 
>1571 
31579 
>1581 
>1589 
31591 
>1599 
>15Al 
>15A9 
>15B1 
>15B9 
>15c1 
>1509 
>15D1 


>15D9 


>15E1 
>15E9 
>i5Fi1 
>215F'9 
16501 


ENDE 


20 
20 
29 
28 
208 
28 
49 
28 
20 
20 
28 
28 


28 


20 
28 
52 
38 


DES LISTINGS (OVM) 


20 20 
28 20 
20 20 
20 20 
20 20 
20 28 
53 4B 
20 20 
2@ 20 
12 20 
28 20 


20 20 


20 20 
20 28 
20 12 
49 47 
39 20 
52 45 


20 
20 
29 
20 
28 
208 
s4 
20 
28 
28 
20 
2B 
28 
20 


43 


So, das war’s mal wieder! 


20 
208 
28 
2a 
28 
28 
al 
20 
20 
20 
20 
28 
28 
28 
ar 
28 
26 
26 
47 


28 
28 
28 
20 
20 
20 
52 
20 
28 
20 
208 
208 
28 
28 
39 
31 
4 
42 
45 
20 
20 
29 
20 
28 


28 
20 
20 
12 
28 
44 
54 
208 
20 
28 


ı:BD 
::C9 
:CD 
:69 
:DD 
::85 
::91 
::FS 
::FD 
::E9 
BD 
:15 
:ı1D 
25 
.E4 
slı 
:83 
:55 
:1E 
:2B 
:5D 
:65 
ı6D 
1:79 
:53 
11 
a3 
96 
:ı9E 
:5E 
7X 
+46 
ı:BA 
:18 
:CE 
:98 
:DE 
:E6 
:EE 
::F6 


Er Pr 


nu 0 


[2 Zur use Peer Peer Peer 


m- an m 26 0 de a ne 


u. 0. 08 0. 


-1:2A 


::08 
::A7 
ı:9PF 
:43 
ı?7F 
:EA 
:54 
:2B 
:89 
:4E 
:8D 
:F3 
+29 
»:36E 
1:16 
::9D 
8:33 
ı:A6 
2:17 


“Te Ar 


Ca 


0) 0 D Esfolgen die Leserbriefe I I LI 


Io oO und die Checksummer ID 0 I 
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BE LESEREGIIE 





Turbo-Plus 


Ihrem Tester ist bei Turbo-Plus 
leider ein kleiner Fehler unter- 
laufen. Erschrieb, daß der Be- 
fehl TUROFF das Modui ab- 
schalten sollte, doch der ist nur 
zum Abschalten des eingebau- 
ten Turbo-Tabes gedacht. Die 
Fehler, die auftreten können, 
fassen sich jedoch woanders, 
drauf zurückführen. 

Wird die Laderoutine von Pro- 
grammen aus verändert (durch 
Turbo-Tape), so reicht es nicht, 
mit einer anderen Sakundär- 
adresse zu iaden, wie im 
Handbuch beschrieben; eg 
muß das Turbo-Tape mit TU- 
ROFF abgeschaltet werden. 
Viele professionelle Pro- 
gramme benutzen einen ande- 
ren Bildschirmaufbau und hän- 
gen sich bei Turbo-Plus auf. In 
diesem Fall muß der Scroller 
mit SCROLLOFF abgeschaltet 
werden. 

Um dies alles zu vereinfachen, 
habe ich ein kleines Programm 
geschrieben, denn das stän- 
dige Rein und Raus tut dem 
Modul sicher nicht gut: 
1SCNCLR:FORI=OTO9STEP 
3:READA$ :CHAR,0,LAS$: 
NEXT 

2POKE1319,19:FORI = 1320 
T01323:POKEI 13:NEXT: 





: POKE239,5:END 


93DATA SCROLLOFF,TUR 
OFF,EXOFF,"KILL:SCNCLR” 
Ich denke, es wird einigen 
Turbo-Plus-Besitzern nützlich 
sein! 

Vieleicht schafft es ja jomand, 
einen Modul-Deleter zu schrei- 
ben, der nicht die Basic- 
Befehle benutzt, sondern ein 
MC-Programm, das den Ae- 
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sotvektor so umbiegt, daß das 
Modul erst gar nicht inttialisiert 
wird. Diese Möglichkeit wäre 
noch wirkungsvoller, 
Außerdem habe ich noch einen 
Tip zu N.C.S: Gibt es 1010 aus, 
so solite man 4112 benutzen 
{1010 ist die Hex-Zahl von 
41121) 

Götz-Tobias Heger 


Die Red. 

Wir fanden den Tip so gut, daß wir 
ibn aufdiese Weise allen Lesern zur 
Verfiigung stellen. 


Programm 
fehlerhaft? 


In Ausgabe 1/89 stellten Sie 
das Programm TYPE vor. Mir 
ist es trotz mehrfacher Über- 
prüfung nicht gelungen, es zu 
gebrauchen. Ich bitte Sie, falls 
Ihrer Zeitschrift ein Fehler 
unterlaufen ist, mir diesen 


mitzuteilen. 
Roger Wahl 


Die Red. 

Über einen Druckfehler in diesem 
Programm ist uns nichts bekannt, 
Leider teilten Sie uns nicht mit, 
welcher Art die bei Ihnen auftre- 
diese Angabe ist es uns aber unmög- 
lich, Ihnen zu helfen. 


Welcher Drucker? 


ich beziehe seit einiger Zeit Ihr 
Heft ragelmäßig und finde es 
recht gut gelungen, vor allem, 
weil es abwachsiungsreich ist. 


JALLRERR. 


nn, > 


Aber nun zu meinem Problem: 
Ich möchte mir einen Drucker 
zulegen, weiß aber nicht, wel- 
ches Fabrikat ich mit meinem 
C-16 benutzen kann. Ich hoffe, 
Sie können mir weiterhelfen. 
Markus Warda 


Die Red. 
Einen Rat bezüglich der genauen 
Marke können wir natürlich nicht 


"geben, es gibt einfach zu viele ver- 


schiedene Geräte. Sie können jeden 
Drucker am C-16 betreiben, der 
sich auch an den C-64 anschließen 
laftı. Ein sehr günstiges Gerät wäre 
z.B. der Commodore MPS-801. Sie 
sollten sich aber in einem Fachge- 
schäft beraten lassen. Es kommt 
eben darauf an, für welchen Zweck 
der Drucker benötigt wird, 


Vorschläge 


Nachdem ich nunmehr Ihr 
neuestes Heft durch Freunde 
bekommen habe, hätte ich 
noch ein paar Fragen an Sie. 
Als erstes vermisse ich den 
Hinweis, wann das nächste 
Heft erscheint. Dies bedeutet 
doch wohl nicht, daß es fraglich 
ist, ob.die Zeitschrift auch wei- 
terhin erscheinen wird. Aber da 
kann man wohl nur hoffen. 

Dann noch zum Inhalt der 
Hefte: ich mag zwar auch 
gerne mal Spiele (obwohl die 
meisten viel zu schnell für mich 
ablaufen), aber ich vermisse 
doch Anwenderprogramme die 
mir mehr geben, da der Com- 
puter doch nicht nur eine 
Spielmaschine ist. Gibt es 
denn niemand, der solche Pro- 
gramme wie PRINTFOX für 








den C-64 aut den Plus/4 um- 
schreibt? Auch für meine Kin- 
der würde ich gerne harmlose 
Comic-Zeichenprogramme ha- 
ben (wie z.B. Gartield-Comics). 
Auch die Daten- und Adress- 
verwaltungsprogramme, die 
ich besitze, sind nicht sehr 
komfortabel; bzw. weisen kei- 
nen großen Speicherraum auf. 
Hier würde es doch für den 
Fachmann noch viele Möglich- 
keiten geben, sich zu produzie- 
ren, was ja letztendlich bedeu- 
tet, daß der Pius/4 noch lange 
nicht am Ende zu sein braucht! 
Ich besitze den Plus/4 seit dem 
Frühjahr, bin Autodidakt und 
finde den Umgang mit dem 
Computer eine herrliche Sa- 
che. Schon deshalb würde ich 
es bedauern, wenn Ihre Zeit- 
schrift nicht mehr erscheinen 
würde! 
Zum Schluß würde ich mir wün- 
schen, daß ich Anschluß an ei- 
nen Computerclub in der Bun- 
desrepublik finden könnte. 
Hans von Münchhausen 


Die Red, 

Dieser Brief erreichte uns aus der 
DDR. Wer also Lust hat, Herrn, 
von Münchhausen in einen Club 
aufzunehmen, der kann uns dies 
gerne mitteilen, wir leiten & dann 
weiter. Nun zu den Fragen: 

Der Hinweis auf den Erschei- 
nungstermin fehlte, weil wir ihn 
schlicht und einfach vergessen ha- 
ben. Das mit dem Inhalt ist nicht 
so einfach: Wir versuchen natürlich, 
allen Wünschen gerecht zu werden, 
dies gelingt naturgemäß nicht im- 
mer, Comic-Programme würden 
derartige Speicherplatzmengen be- 
nötigen, daft ein Abdruck nicht 
mehr in Betracht käme. 
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Zur Eingabe der Listingsprogramme 


für C 64/G 16/Plus 4 





Eingabehinweiss für alle Commodore-Rschner! 


Wer sich schon etwas näher mil Commodore-Rechrierr befaßi hat, wird sicherlich 
wissen, daß der Grafiksatz des G 64 und C 16 sehr viele ähnliche Symbote enthält. 
Aus diesem Grund ist 88. ofl sehr schwer, einzelne Zeichen, wie zum Beispiel ho- 
Azontale Linion, voneinander zu unterscheiden. Besonders macht sich dieser Nach- 
teilin Listings bemerkbar, welche dia Bildschirmgrafik mit PRINT-Zeilen aufbauen. 
Bisher haben wir in unseremAusdruck tediglich die Steuersequenzen wie CTAL- 
RVS ON oder CTAL-BLUE durch Klartext ersetzt, ab dieser Ausgabe werden je- 
doch auch alle Grafikfikzeichen durch ein Schlüsselcode ersetzt. Durch diese Met- 
hode sind Verwechselungen praktisch völlig ausgeschlossen, 

Alle sogenannten Sonderzeichen (z.B. eine Farbe) sowie ein Grafikzeichen, wer- 
den in unseren LISTINGS durch ein GODEWORT, welches die Taste bzw. Tasten- 
kombination kennzeichnet, ersetzt. Eine Tabella der Tastentunktionen finden Sie 
in dam Tronic-Magazin Gompute mit. Das folgende Beispist zeigt den Unterschied 
zwischen unserem alten und dem neuen Bruckwerlahren: 


©64 .ISTING MIT CHECKBUMEN 45 Vi.0b 


10 REM BISHERIGER AUSDRUCK — 
20 PRINT" (POUNS> 08> 
30 PRINT I I, 8 = 
80 PRINT" trat ? Be 
80 PRINT"ENDE* . 

ENDE DEB LISTINEB 

EDRUCK:F-@. 3 

. 6-64 LIGTING + CHECKSUMMEN IE 48.0) 
en <162> 
20 PRINT" € s2 cv2 8pr* «82» ' 
SEmuBEBBENMFeMum cm 
80 PRINT"ENDE” kcntae 


ENDE LISTINGE 


Wis in diesbm Beispiel zu erkennen ist, werden alle Steuertasten durch die ent- 
sprechende Tastenbeschreibung markiert. Das Wort DOWN steht in diesem Fall 
für Oursor nach unten. Die Zahl dahinter gibt ar, wie of. die Taste betätigt warden 
muß. In unserem Beispiel müßle also die Taste GUASOR abwärts viermal betätigt 
werden. Die genaue Beschreibung, welche Taste gemeint ist, entnehmen Sie bitte 
der Kiarlexi-Tabelts, welche am Ende dieser Beschreibung abgedruckt ist. Ach- 
tung, für © 16 und C 84 existieren zwei verschiedene Tabellen! 
Wie ebenfalts aus dem Beispiel zu erkennen.isi, werden auch alle Grafikzeichen 
durch einen 2-Buchstaben-Code ersetzt. Der arsie Buchstabe ist entweder ein "= 
oder ein »Ow, Das »C= Sieht für die -SOMMODORE-TASTE- und das «$« für die 
»SHIFT-TASTE«. Der zweite Buchstabe bezeichnet die Aufschrift der Taste, Das 
»SA« in unserem Beispiel bedeutei also, daß die Taste SHIFT zusammen mil dem 
Buchstaben »A- betätigt werden muß. +C +« würde bedeuten, daß die Taste COM- 
MOOORE zusammen mit dem PLUS-Zeichen gedrückt wird, Wird direkt hinter die- 
ser Buchstabenkombination eine Zahl angeben, so gibt diese die Anzahl der je- 
weiligen Zeichen an, Das Zeichen COMMODORE Y wurde also in unserer Beis- 
piel 9mal eingegeben. Durch diese Methode. entfällt das lästige Abzählen von 
mehrfachen Zeichen. 
Um in Listings Tastenbezeichnungen von normalen Zeichen zu unterscheiden, wer- 
den alle Tastenbezeichnungen in geschweiften Klammern gesetzt. Diese dürfen 
selbstverständlich nicht eingegeben werden. Auch Leerzeichen innnerhalb ge- 
schweifter Klammern dienen nur zur Trannung einzelner Tastenfunktionen- und dür- 
fon ebenfalls nicht eingegeben . Um die Tastenfunktionen noch besser her- 
vorzuheben, werden diese in unjerstrichener Kursivschrift (Schrägschrift) darge- 
stellt. Alle Zeichen außerhalb der geschweiften Klammern werden normal abge- 
druckt und auch eingegeben. 
Im ersten Moment hört sich das sicher etwas kompliziert an, ist jedoch in der Pra- 
xis ganz einfach. Wenn man sich erst einmal an die in Klartext geschriabenen Zei- 
chen gewöhnt hat, wird man den großen Vorteil dieser Schreibweise erkennen. 
Frank Brall 
Noch eine wichüge Anmerkung! 
Aus technischen Gründen können drei Zeichen von unserem Ausgabegerät nicht 
verarbeilet werten, Diese Zeichen sind: Pfeil nach links, engl. Pfund, Pfeil nach 
eben. 
„. Steht für den Pfeil nach links 
7 Steht für das engl. Pfund-Symbol 
* Sieht für Pfeil nach oben 


C16 - SA 5/89 





Kiortext-Taballe für Commorlora 64 
DOWN CUASOR ABWÄRTS TASTE NEBEN RECHTEN SHIFT 
up LUASOR HINAUF SHIFT-TASTE & TASTE NEBEN RECHTEM SHIFT 
CLEAR CLEAR SCHIRM SHIFF-TASTE & 2, TASTE GANZ RECHTS OBEN 
INST EINFÜGEN SHIFT-TASTE & TASTE GANZ HECHTS OBEN 
HOME CURSOR IN ECKE 2. TASTE VON GANZ HECHTS OBEN ' 
FIGHT GURSOR RECHTS TASTE GANZ RECHTS UNTEN 
LEFF CURSOA LINKS SHIFT-TASTE & TASTE UNTEN RECHTS 
SPACE LEERZEICHEN LEERTASTE ( TE TASTE) 
DEL DELETE TASTE GANZ RECHTS OBEN 
Fi FUNKTIONSTASTE FUNKTIONSTASTE Fi 
F2 "FUNKTIONSTASTE FUNKTIONSTASTE F2 
r3 FLNKTIONSTASTE FUNKTIONSTASTE F3 
ra FUNKTIONSTASTE FUNKTIONSTASTE F4 
#5 FUNKTIONSTASTE FUNKTIONSTASTE F5 
Fö FUNKTIONSTASTE FUNKTIONSTASTE F& 
F7 FUNKTIONSTASTE FUNKTIONSTASTE F7 
FB FUNTKIONSTASTE FUNKTIONSTASTE FB 
BLACK SCHWARZ CONTROL-TASTE & 1 
WHITE WEISS SONTROL-TASTE & 2 
RED ROT SONTROL-TASTE & 3 
CYAN TURKIS CONTROL-TASTE &4 
PURPLE PURPUR GONTROL-TASTE & 5 
QREEN GRUN SONTROL-TASTE & & 
BLUE BLAU SONTROL-TASTE A 7 
YELLOW GELB CONTHOL-TASTE & 8 
AVYSON NVERSE EIN CONTREH.-TASTE & 9 
RVSOFF INVERSE AUS SONTROL-TASTE & 0 
ORANGE ORANGE COMMODORE-TASTE & 1 
BROWN BRAUN COMMODORE-TASTE & 2 
U@.RED HELLROT CONMMODORE-TASTE & 3 
DGREY DUNKELROT COMMOBDORE-TASTE & 4 
EV FRAU COMMODORE-TASTE & 5 
LIG.GREEN HELLGRÜ! COMMODORE-TASTE & 8 
LIG.BLUE HELLBLAU SOMMODORE-TASTE & 7 
HAREY HELLGAAU COMMODORE-FASTE & 8° 
STAL... TTRL-ZEICHEN SONTROL-TASTE UND DAS ... ZEICHEN 
Su GRAFIK-ZEICHEN SHIFT-TÄSTE UND DAS „ZEICHEN 
c. IK-ZEICHEN COMMODORE-ZEICHEN UND DAS „ZEICHEN 


SHHFTSPACE UNSICHFBAHER CODE SHIFT-TASTE UND SPAGE 





Klertent-Tabeile für Commodore C 18 und Plus 4 


DOWN 
up 


FLASHOFF 


CURSOR ABWÄRTS 
CUASOR HINAUF 

CLEAR SCHIRM 
EINFÜGEN 
CURSOR IN 


DELETE 
CURSOR RECHTS 
CURSOR LINKE 
LEERZEICHEN 
FUNKFIONSTASTE 
FUNKTIONSTASTE 
FUNKTIONSTASTE 
FÜNKTIONSTASTE 
FUNKTIONSTASTE 
FUNKTIONSTASTE 
FÜNKTIONSTASTE 
FUNKTIONSTASTE 
SCHWARZ 


BLAUGRÜN 
HELLBLAU _ 
DUNKELGRUN 
HELLGRUN 
CTAL-ZEICHEN 
GRAFIKZEICHEN 
GRAFIKZEICHEN 
BLINKEN EIN 
BLINKEN AUS 


TASTE NEBEN INST DEL: RECHTS OBEN 

3. TASTE NEBEN DOWN VON RECHTS OBEN 
TASTE ÜBER RETURN ZUSAMMEN MIT SHIFT 
SHIFT-TASTE & TASTE GANZ RECHTS OBEN 


2. TASTE VON GANZ RECHTS OBEN 


TASTE GANZ RECHTS OBEN 

4. TASTE VON RECHTS OBEN 

5. TASTE VON RECHTS OBEN 

LEERTASTE (GRÖSSTE TASTE) 
FUNKTIONSTASTE Fi (VORHER DEFINIEREN) 
FUNKTIONSTASTE F2 (VORHER DEFINIEREN 
FUNKTIONSTASTE F3 INORHER DEFINIEREN 
EUNKTIONSTASTE F4 (VORHER DEFINIEREN) 
FUNKTIONSTASTE F5 (VORHER DEFINIEREN) 
FUNKTIONSTASTE F6 (VORHER DEFINIEREN 
FUNKTIONSTASTE F7 (VORHER DEFINIEREN 
FUNKTIONSTASTE FB (VORHER DEFINIEREN) 
SONFROL-TASTE & 1 

CONFROL-TASTE & 2 


CONTAOL-TASTE UND DAS ..,ZEICHEN 
SHAFT-TASTE UND DAS ..ZEICHEN 
COMMODORE-TASTE UND DAS „ZEICHEN 
SONTROL-TASTE UND ",” 
SONTROL-TASTE UNO "." 


SHIFTSPACE UNSIGRTBARER CODE SHIFT-TASTE UND SPACE 
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Der 
Checksummer 


r C16/116/plus 4 


Der Checksummer OV 2.0 

Obwohl schon durch die alte 
Checksummer-Version OV10 
das Eingeben von Listings erheb- 
lich vereinfacht wurde, gab es 
immer noch kleine Mängel in der 
Bedienung. Insbesondere die Tar- 
sache, daß Listings in einem 
”Stück” eingegeben werden 
mußten, wirkte sich sehr nachtei- 
lig aus. Programme die am Vor- 
tag begonnen wurden, mußten 
später ohne Checksummer ver- 
vollständigt werden. Lediglich die 
Besitzer eines Floppy-Laufwerkes 
kannten diese Probleme nicht. 
Ein weiterer Nachteil trat beim 
nachträglichen Editieren von 


ger als 40 Zeichen waren. 

Alle diese Nachteile sind in der 
Version OV2.0 nicht mehr vor- 
handen, Jetzt können Pro- 
gramme, welche bereits einge- 
geben wurden, nachträglich mit 
dem Checksummer kontrolliert 
werden, Um dies zu bewerkstel- 
ligen lädt man zuerst den Check- 
summer von Kassette bzw. 
Diskerte, startet ihn mit RUN und 
lädt das zu prüfende Basicpro- 
gramm nach. Jetzt wird der 
Checksummer mit $YS 4097 ak- 
tiviert. Um eine Zeile zu überprü- 
fen, fährt man mit dem Cursor 
auf diese und berärigt die 
RETUÜRN-Taste, Danach ver- 


‚ gleicht man die Checksumme am 


linken oberen Bildschirmrand mit 
der abgedruckten Checksumme 
im Heft. Stimmen diese Summen 
nicht überein, so ist die eingege- 
bene Zeile fehlerhaft und solite 
korregiert werden, Beachten Sie 
bitte, daß die Checksummen der 
Version OV2.0 mit der Version 
OV1.0 identisch sind, diese jedoch 
jetzt formatiert (mir führenden 
Nullen) ausgegeben werden. Das 
bedeutet die Checksumme 

008 entspricht der Check- 


summe. B . 


Die Arbeitsweise und Funktion 
des Checksummers isr bis auf die 
erwähnten Merkmale identisch 
geblieben. Da der Checksummer 
jedoch in einem anderen Bereich 
liegt (4097 bis 4287) ändert sich 
der Basicanfang sowie die 
Checksummer-Startadresse. Die 
neue Startadresse lauter nun SYS 
4097. Vor einem LOAD bzw. 
SAVE Befehl sollte der Check- 
summer jedoch weiterkin mit SYS 


werden. 

Da der Checksummer den Basic- 
anfang versetzt, stehen dem An- 
wender 255 Bytes weniger Spei- 
cher zu Verfügung. In der Regel 
macht sich dies jedoch nicht nach- 
teilig bemerkbar, da selten der ge- 
samte Speicher benötigt wird. 
Sollte dies jedoch einmal vor- 
kommen, so sollte man das Pro- 
gramm nach der Eingabe mittels 
Checksummer abspeichern, da- 
nach den RESET-Taster betätigen 
und das Programm wieder einta- 
den, jetzt kann das Programm 
ohne Probleme gestartet werden. 


Achtung! 

Wenn Sie den Checksummer ein- 
gegeben haben, so sollten Sie die- 
sen unbedingt vor einem Start 
abspeichern, da er sich automa- 
tisch löscht. Um den Checksum- 
mer möglichst fehlerfrei eingeben 
zu können, sollten Sie den alten 
Checksummer benutzen. 


Frank Brall 














Programmzeilen auf, welche län- 


£-16& LISTING * CHECKSUMMEN XOC v1.9) 









































1 REM VRR <a>. 
2 REM # * <99> 
3 REM * C1i& CHECKBUMNER DV 2.0 * <120> 
4 REM # * <181> 
53 REM # COPYRIGHT BY FRANK BRALL * <192> 
& REM * * <1B83> 
7REM # (C) 15.12.84 TRONIC VERLAG #* <11a> 
BREM # # <ıB3> 
9 REM RR <12> 
18 DIM #175 <115> 
2B PRINT"CCLEAR DOHN SPACEYR#RLSPACEICHECKSU 
MMERISPACEHW ISPACEI?.. HLISPALCEF HH LCSPACEICLAHF 
PLUS/4" <127> 
38 PRINT*tSPAGESI CI TSPACEIFRANKISRACEIBRÄALL 
SPACEI LIBTISPACEIFTSPACEISONTRA" <3h> 
49 FRINT <195> 
sa PRINT"CHECKSUMMERISPAGEIEINTBPALEI=TSPAGE / 
ISYSISARACEIANFT" <283> 
Li PRENT"CHECKSUMMERTSPACEIAUSTSPACEI= SPACE 
ISYS{SPACET} 42158: SYSTSPACEI SIG" <236> 
78 PRINTEPRINT" {SPAGEZFACHTUNGTSPAGEI SPACE 
FVORTSPACEIDEMISPAGCEFLADENTSPACEIODER® «1437 
BB PRINT"ISPACEIISPEICHERNTSPALEIVONTSPALEIP 
ROGRAMMENISPACEI IST {SPACEIDER® <181> 
98 PRINT"ISPACEIICHECKSUMMER (SPACE +AUSZUSCHA 
LTEN{SPAGEY!" <168> 
1088 PRINT:PRINT"BITTEISPACETBEACHTENISPACEIS 
TEISPACEIAUEHTSPAGEIDIETSPACEIHINWEISE" 412> 
112 PRINT" IN{SPACEIDENTSPACEIHEFTENTSPACEICO 
MPUTEXSPACEIMIT „ {SPAZEILÖMPUTRONIC" +252> 
124 PRINT"SGWIEISPALEFDEN{SPATEHAKTUELLENTSP 
ALEISONDERHEFTENISPACEN!" <«<141> 
138 PRINT"DIESER {SPACEIDHECKSUMMERISPACEIIST 
ISPAGEFIVOLL {SPACEHKOMFATIBEL" «Ba> 
148 PRINT" ZUR{SPALCEIVERSION{SPACE)L. B,{SPACE. 
YERLAUBT (SFATEIJEBOCH" <4a> 
150 PRINT" ZUSAETZLICHTSPACEIDASTSPACENNACHLA 
DEN{SPACE}IVON SPACE} FRODGRAMMEN" x55> 
1790 PRINTIPRINT . <150> 


208 PRINT"HABEN{SRACEISIELSPAGEIDEN CSPALEICH 
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62158:SYS 33047 abgeschalter 


ECKBUMMERSPACEFGEBPEICHERT LSPACEF?" 
2ı0 GET E$:IF E$="" THEN 210 
22a IF E$="N" THEN PRINT"DANNISPACEISAVENISP 
ALEISTELSPALEI IHNLSPALEFJETZTASPACEN ! "STOP 
1228 PRINT"BITTELSPACEIWARTEN{SPAGE 
sduRa FORI=ATOF 
sADLA Hi4B+I)=Trllt65+1D)=I+ 19H NEXT 
AB220 FORI= 4097 TO) 4ZBT +READAF 
H0A3A H=ASC(LEFTECAS,1)) 
HBMAB- L=ASC (RIGHTS AK, LI) 
&BB5A D=H{HI#LA+HLLI:5=5+DEPOKEI,D 
SOHAR AsA+l: IFACZBTHENNEXT: A=-1 
HaA7a READV: Z=7+1: IFV=STHENSORBS 
‚sOUER PRINT"DATAFEHLERTSPACEFINISPACEIZEILET 
SPACEY: " ; 60200+Z: END 
&0ORB5 IFA<ATHENADIBD 
60898 S=B: A=R: NEXT 
68180 PRINT" ICLEARFPOKEISPACEI44, 17: POKELSPA 
CE317%256 Os NEWE" 
6AILB PRINT" CDOHNIICHECKSUMMERTSPACEITSTISPA 
CEIEINGELESENTSPACEF N 
40120 PRINT" {ROWUIBTARTESPACEMITI TSPACEZISY 
SISPACEI 4097" 
60130 POKE 239 ,21POKE 1319,19: POKE 132B,1I:E 
ND - h 
60201 DATA A9,@C,BD,02,23,49,10,80,03,03,40, 
A2,FF,86,30,20,5A,08,86,3B, 1815 
60202 DATA 34,30,28,73,04,AA,FQ,EF,90,09,20, 
53,99,20,79,04,40,67,8B,28, 2B18 
4A20S DATA 3E,BE,22,53,89,04,08,49,00,BD ‚BB, 
1B, AD,BC,12,8D ‚BD,10,18,A5, 1992 
4024 DATA 14,655,15,90,BD,10 AG ,FF,CB,EI,SB, 
F@,2C,09,22,D@,OA,AD,BB,10, 2452 
69285 DATA 49,01 ,8D,6B,18,B1,3B,AE,BB,10,DR, 
04,097,20,FR,E4,EE,BC,1A,NE, 2540 
62206 DATA BC,19,19,B1,3B,.40,5D,1@0,8D,BD,1B, 
CA,DB,F4,4C0,45,10,A9,BC,.D, 2437 
50287 DATA @B,8C,A?,BE,BD,24,00,A9,00,AE,BD, 
18,95,62,94,53,92,90,39,28, 1934 
&R20G DATA CE,02,28,71,44,20,74,98,28,A4E 96, 
42,03,09,99,20,20,04,09,80, 2m44 
6227 DATA 70,22,2C,CA,89,18,F4,A9,B0,E0,08, 
F@,26,90,92,0C,CA,D&,FA,86, 2545 
sa21L2 DATA FF,4C0,34,87,02,20,209,09,22,FF,CD, 

gan 

ENDE DES LISTINGS 

















<236> 
<98> 


sa2> 
<55> 
<189> 
<1n5? 
<ı191> 
<234> 
<255> 
<13> 
<97> 
«177> 
ee 2 
<i116> 
“246> 
<> 
<288> 
<a?> 
<108> 
x252> 
x28> 
<255> 
<13> 
«205> 
<ı109> 
s103> 
<117>7 
x237> 


7a? 
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Der Checksummer für MC- Programme: 


Maschinenprogramme gefragt ? 


Da wir verstärkt Maschinenpro- 
gramme abgedrucken, benötigen 
Sie ein Verfahren, um auch diese 
Programme mit einer Check- 
summe zu versehen. Das Aus- 
druckverfahren von Basic-Listings 
wird nicht verändert. Hier wird 
auch weiterhin der erprobre 
Checksummer OV 2.0 seine 
Dienste tun. 


Der Checksummer OVM 1.0 


Wie schon erwähnt, dient der 
Checksummer ausschließlich zum 
Eingeben von Maschinenpro- 
grammen.: Diese konnten zwar 
bisher relativ kompakt als soge- 


nanntes HHEXDUMP ausgegeben. 


werden, ließen jedoch keine Mög- 
lichkeit für eine oder mehrere 
Prüfsummen offen, 

Dies ist bei diesem Checksum- 
mer völlig anders. Die Bedienung 
und Arbeitsweise dieser Version 
ist weitgehend mit dem eingebau- 
ten Maschinensprachemonitor 
TEDMON idemisch. Die einzige 
Ausnahme ist, daß nach der Ein- 
gabe einer HEXZEILE keine 
ASCH-Zeichen, sondern eine soge- 
nannte Checksumme bzw. Prüf- 
ziffer ausgegeben wird, Achter 
man beim Eingeben der Zeilen 
darauf, daß Diese Prüfziffern mir 
den abgedruckten Prüfziffern 
identisch syıd, so kann praktisch 
kein Tippfehler mehr übersehen 
werden. 


Hinweise zum Einsatz des 
Checksummers 


Um den Checksummer OVM 1.0 
einzugeben, sollıen $ie unbedingt 
den Basic-Checksummer OV 2,0 
verwenden, Vor dem Start, durch 
den Befehl RUN, sollte das Pro- 
gramm auf jeden Fall mit 
SAVE”OVM1.0” auf Kassette oder 
Diskerre abgespeichert werden, da 
sich das Programm unter Um- 
ständen selbst zerstören kann. 


Wer sich die Arbeit des Eingebens 
völligersparen möchte, kann den 
Checksummer auch unter den 
folgenden Bestellnummern bezie- 
hen: 
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15 DM 
20 DM 


OVM 1.0 K Kassette 
OVM 1.0.D Diskerte 


Nachdem man den Checksum- 
mer eingegeben und mit RUN ge- 
startet hat, verlangt dieser die 
Kingabe einer Adresse, Diese 
Adresse gibt an, ab welcher Spei- 
cherstelle der Checksummer im 
KAM abgelegt werden soll. Diese 
Adresse muß flexibel gestakter 
werden, da sich sonst einzuge- 
bende Maschinenprogramme 
eventueli mit dem Checksummer 
überschneiden könnten. Der 
zweite Vorteil ist, daß sich ein 
verschiebbarer Checksummer 
gleichermaßen für den C16 so- 
wie den Plus 4 eignet. Zu beach- 
ten ist hier nur, daß sich die 
eingegebene Adresse in einem zu- 
lässigen Bereich befindet; Beim 
C16 von 4097 bis maximal 12680 
Beim Plus 4 von 4097 bis maxi- 
mal 32060. 


Welche Adresse man schließlich 
wählt, bleibt jedem selbst überlas- 
sen. Wichtig ist nur, daß der Be- 
reich 688 Bytes über der Adresse 
nicht vom einzugebenden Pro- 
gramm benötigt wird. Belegt 
beispielsweise das einzugebende 
Programm den Bereich von 
-1000--2000 (4096-8192), so 


könnte man für den Checksum- 


mer die Adresse 9000 wählen. Um 
Ihnen am Anfang die Wahl des 
Speicherbereiches: erwas zu er- 
leichtern, werden wir auch ent- 
sprechende Tips in 
Programmbeschreibungen unter- 
bringen. 


Nachdem Sie eine Startadresse 
eingegeben und die RETURN. 
Taste betätigt haben, wird der 
Bildschirm mit einem undefinier- 
baren Zeichengewirr beschrieben. 
Keine Angst, dies ist normal und 
dient zum Umrechnen einiger 
Sprungbefehle. Kurz danach er- 
scheint die eingegeben Starta- 
dresse sowie die Endadresse des 
Checksummers. Prüfen Sie jetzt 
noch einmal genau, ob sich diese 
Adressen nicht mit dem einzuge- 
benden MC-Programm über- 
schneiden. 


Ist dies nicht der Fall. so kann der 


den. 


Checksummer mit dem angezeig- 
ten SYS „. Befehl aktiviert wer- 
den. Ein ab Adresse 10000 
abgelegter Checksummer wird 
beispielsweise auch mit SYS 10090 
aktiviert. 


Nachdem sich der Checksummer 
mit dem üblichen COPY-RIGHT: 
Vermerk melder, befinden Sie sich 
im MC-Eingabemodus. Dies be- 
deuter, daß jerzt die Basic-Befehle 
nicht mehr. ausgeführt werden 
können. Statt dessen stehen dem 
Anwender nun acht neue Befehle 
zur Verfügung, Die Befehle beste- 
hen jetzt nur noch aus einem ein- 
zigen Buchstaben und arbeiten 
ähnlich wie die im eingebauten 
Maschinensprachmonitor 


TEDMON, 


M adad,eeee 

Dies ist der sogenannte 
Memory-Befehl. Er erlaubt das 
Auflisten eines bestimmten Spei- 
cherbereichs als HEXDUMP mir 
einer Checksumme pro Zeile. Die 
Parameter aaaa und eeee stehen 
jeweils für Anfangs- und Enda- 
dresse des auszugebenden Be- 
reichs. 


aaa bb bb ... 
Dieses ist der eigentliche 
Maschinencode-Eingabebefehl. 


Als Parameter kann die Ringabe- 
adresse sowie eine Folge von By- 
tes (maximal 8) übergeben 
werden. Die Arbeitsweise ist mit 
dem herkömmlichen Monitor 
völlig identisch und kann im 
Handbuch zum C16 genauer stu- 
diert werden. Der einzige Unter- 
schied zum Standard-TEDMON- 
Befehl besteht darin, daß nach dem 
Betätigen der RETURN-Taste am 
Zeilenende eine Checksumme er- 
scheint. Um die Checksumme 
besser von den Bytes der Eingabe 
abzuheben, ist diese durch zwei 
Doppelpunkte von letzteren ab- 
gesondert, Da dieser Befehl auto- 
matisch beim M-Befebl den Zeilen 
vorangestellt wird, lassen sich 
Speicherbereiche einfach mittels 
der Cursortasten verändern oder 
verbessern. Wichtig ist hier aller- 
dings, jede veränderte Zeile mit 
der RETTRN-Taste zu quitieren, 


DR diesen Befehl wird die 
Bildschirmausgabe auf einen an- 
geschlossenen Drucker umgelei- 
ter. Wenn Sie anschließend den 
M-Belehl benutzen, können Sie 
beliebige Speicherbereiche als 
HEXDUMP mir Prüfsummen auf 
Ihrem Drucker ausgeben lassen. 


B 
Dieser Befehl stellt das Gegen- 


‘stück zum P-Befehl dar. Die Aus- 


gabe wird wieder auf den 
Bildschirm umgeleitet. 


L’Name",g 

Dies ist der LOAD-Befehl zum 
Nachladen von Maschinenpro- 
grammen. Die Syntax und Ar- 
beitsweise entspricht genau dem 
TEDMON:-Befehl und kann so- 
mit im Handbuch nachgelesen 


werden, 


S’Name’,gaaaa,ceee 

Dies ist der Save-Befeh]l zum Spei- 
chern von Maschinenprogram- 
men. Die Syntax und Arbeits- 
weise entspricht genau dem 
TEDMON-Befehl und kann so 
mit im Handbuch nachgelesen 
werden. i 


V’Name”,g 

Dies ist der VERIFY-Befehl zum 
Prüfen von Maschinenprogram- 
men. Die Syntax und Ar- 
beitsweise entspricht genau dem 
TEDMÖON-Befehl und kann so- 
mit im Handbüch nachgelesen 
werden, 


X 

Über diesen Befehl verlassen Sie 
den Eingabemonitor und gelan- 
gen wieder in den Basic-Interpreter 
zurück, 


Achtung! 

Nach der Ausführung der Befehle 
LS und V LOAD, SAVE VERI- 
FY), befinden Sie sich nicht mehr 
im Checksummer, sondern im 
eingebauten Systemmonitor TED. 
MON. Um den Checksummer 
wieder zu aktivieren, müssen Sie 
diesen von TEDMON mir Gxxxx 
(xxxx steht für Starradresse in 
HEX) oder vom Basic aus, wieder 
mit SYS .. aktivieren, 
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So, nun viel Glück beim Einge- 
ben von Maschinenprogram- 
men. Übrigens, wer noch nicht 


res Systems zurechtkommt, 
kann selbstverständlich auch 
weiterhin den eingebauten 
TEDMON benutzen. Wir hoffen 


jedoch, daß unser System OVM 
1.0 Ihren Zuspruch finden und die 
lästige Fehlersuche zumindest 
stark reduzieren wird, Schreiben 


Sie uns doch einmal, was Sie von 
unseren Bingabehilfen für gut 
oder für verbesserungswürdig 
halten! 








ganz mit der Bedienung unse- 


418 DATA239,32,12,239,32,216,251 ,13,66,75, 76 









































Frank Brall 


,68,83,67,72,73,82,77 ; <171> 
420 DATN32,65,75,84,73 ‚B6,13,8,56,176,219,18 
C-14 LISTINB + CHECKSUMNEN (06 V1.8) 9,0,133,241,133,242,141 <iB> 
430 DATA244,7,352,63,251,249,58,201,32,240,24 
iD REM <241> 7,201,32,2402,46,201,14,244 <107> 
22 REM  KC-EINGABEROUTINE <232> | 4490 DATA42,201,48,140,43,201,71,176,37,201,5 
38 REM om 1. ‘<218> | 9,144,6,281,65,144431,235 “90> 
AB REM (6) FRANK BRALL <174> | 450 DATAB,233,47,18,19,190,18,162,4,10,38,241 
SB REM Wu nr <25> ‚38,242 ,282, 200, San, 238 <251> 
6D REM <2a5> | 448 DATA244, 7 32, 63,251,208,284,173,244,7,24 
74 FOR I=1534 TO 17923READ PsPoKE I,PıiNEXT I <Z248> ‚74,194 194; 133, 14 ‚251,58 <53> 
BO REN #4 VERSCHIEBE ROUTINE 6% <2358> }aro DATA176, 172,234 ,32,58 »251,169,62,32,210, 
73 DATAS2,222,157,132,216,133,217,32,222,157 255,32,251 ‚250, 140 ‚8,32, 158 “2a9> 
,140,134,5,141,135,3, 32,222 <145> | 49a DATA297, 32,5,251,200,192,8,144,245,32,21 
102 DATAIS7,132,219,133,219,148,90,177,216,14 4,251,5B,59,P, 149, @,14- <ı195> 
5,218,24,155,218,105,1,133,216 34 498 DATAIG9, 18,160,0,32,150,207,141,171,18,1 x 
119 DATAL65,217,105,8,133,217,24,165,219, 108 48,17@,18;174,179,19,232,24 <139> 
+1,133,218, 165,219, 105,0,133 <136> | Sa@ DATA173,171,18,169,169,18,141,169, 18,202 
128 DATA219,145,217,225,135,3, 208,219, 165,21 209,243,208,192,9,144,225,24 <137> 
6,205,134,5,208,212,96,8,9 <178> } 518 DATA173,169,19,121,161,24,191,162,162,0, 
152 DATAO. <1B1> | 32,5,251,96,62,77,88,88 <221> 
14D REM ### MO-ENDE ware <197> | 520 DATAG6,76,83,86,174,16,288,16,123,17,163 
159 DATA234,147,251,141,21,255,169,2,141,25, ‚17,208,17,0,2,0,8 <296> 
2995,32,216,251,147,17,29,144 <74> 530 DATAU,D,9,255 <234> 
160 DATAS2,32,47 „29,54, 32,77,67,45,57,72,69, SAU REN <173> 
67,75,83,95,77,77 x215> | 559 REM ##r ABSOLUTE ADRESSEN <28> 
178 DATA&9P ,02,32,79 86,774 32,09,49,13,13,32, 540 REM <193> 
32,32,32,32,48,67 <a9> 570 DATA 4284 ,4234,4237,4240, 4243 <250> 
189 DATA41,32,79,82 ,63,70,75,352,66,02, 65,76, ‚| 58@ DATA 4246,4299, ‚4278, ‚4299, 4387 xa> 
76,32,49,97,55,55 <2535> | 59@ DATA 4314,4356,4361 ,4379, 2408 <B6> 
198 DATA1L7,0,32,58,2591,142,0,1343,233, 32,297, sa DATA 4424 4429 ,4362,4467,4709 215> 
255, 157,0,2,232,2B1,13 “218 | sig DATA 4717,4728,4723,4728,4731 <AT> 
208 DATAZBB,245, 202,134, 244 ,32,63,251 ,240,23 620 DATA 4734,4746 ,4767,4769 ,4778. <ı100> 
@,201,32,240,247,162,7,221,151 <32> #38 DATA 4773,4775,8 «523 
zıa BATAL8,240,9,202,18,24B,32,11 1291 ,596,17& 440 PRINT"ICLEAR DOHNZ SPACEIIMASCHINENLCODET 
„210 .254,224 ,5,248,29,224 Ü2u7> SPACE) CHECKBUNMERSPACE>QUM SPACE) 10" <a7> 
22a DATAG,240,25,229,7,249,21,139,19,178,187 652 PRINT" DON: SPADET} Ib) KSPALEIFRANKTSPAGE 
‚I5R,18,141,175, 19,18997,157 <x78> 3HBRALLISRACE? LFBFTEDDNN? 0) <30> 
259 DATA19,141,172,10,32,242,17,108,172,18,1 &52 PRINT"BITTE{SPACEIBEBENTSPACEISIELSPACEI 
41,91 ,5,169,241,141,21,255 <1245 | NUNCSPACEIDIELSPAGEFADRESSETSPACDIEIN," AI1I6> 
240 DATA149,259,141,25,258,173,91,5,74,112,2 670 FRINT"ADCSPACEIDERLSPACEIDERTSPALEITHECK 
48,176,19,52,91,251, 160,2 5 «38? SUMMER SPACEI IMLSPALEISPEICHER" <51> 
258 DATAS2,232,17,176,9, 165, 241,1945,1&1,202, &UB PRINT"ABGELEGT(SPACEIWERDENLSPACEISOLLIS 
172,8,144 ,242 ,32,216,251,27 AT | pacsyı" €228% 
268 DATA79,195,90,52,67,18,56,174,166,254,8,1 698 PRINT" TDOHHPACHTUNBESPACEI 1! I CDDUNS" «197> 
45,161,141,174,18, 165,152 <140> | 798 PRINT"BEIMISPACEICLATSPACEI ZWISCHENESPAL 
27a DATA141,175,18,32,216,251,13,32,77,67,45 EIABITFISPALEFLND{SPACE HIZABRBTSPACEI” <64> 
+76, 73,93,04,73,78,71 <182> | 710 PRINT"BEIMLSPACEIPLUSATSPACE} ZWISCHENISA 
208 DATAS2,77,73,84,32,67,72,69,67,75,83,85, ACE34B97 CSPACEFUNDLSPAGEISZBADTSPACEN ! LDOUNY 
77,77,69,78,32,79 «232> | <215> 
2 DATABS »77,49,458, 15,8,173,174,18,1333, 161, 728 INPUT "ADRESSETSPACEI"JAD <111> 
173,175,18,133,162,40,17& <5B) 730 IF AD<4097 ‚THEN RUN <a7> 
JOB DATAL4,5&4, 176,3,55,176,103,32,91,251 ‚s2, 740 IF AD>3ZB4HR THEN: RUN <218>. 
242,17,194,6,169,11,153 297 75B D=AD-ABF7:REM DIFFERENZ <ı171> 
sı@ DATA241 +208 , 14,32, 198,251,74, 102,241,74, 762 PRINT" {CLEARYBITTELSPACEJEINENTSPACEIAUB. 
320 DATAZ2S, 255 ‚2a0, 13, 32 ‚67,18, 169,0,32,1898 770 FOR I= 3192 TD 3152+487 <READ P:POKE I,P 
‚251 ,32,114,251,176,238,8 <70> aNEXT I <203> 
352 DATA145,161,141,174, 10, 165,162, 141,175,1 7AQ READ LA zIF UA = @ THEN 858 <129> 
8,32,214,251,13,32,69,78,68 x657 TU UA=LUA-F45 <173> 
344 DATA4F,32,68,49,83,32,74,73,03,84,73,78, BAR W=(PEEK (UA+1)#254)+PEEK tUIA) <104> 
71,93,32,40,79,9& <118> | gıa Wew+D “233> 
s5@ DATA77,41,13,90,173,174,19,133,161,173,17 820 FOkE UA+1, INT (01/2561 <130> 
5,18,133,162,48,56,176,352 a <138> | 939 POKE UA,W-tINT(W/258) #256) <13> 
348 DATN32,218,251,13,77,67,45,67,72,69267,7 i 848 GOTE 708 xı170> 
5,83,05,77,77,69,82 “158) | 859 PRINT" CHOHE SPACESIPROGRAMMISPAGEFISTESE 
378 DATA32,65,85,03,32,53,8,157,241,141,21,2 ACEIEINGELESENTSPÄCEN!" <i135>. 
55,1697,239,141,25,255,1B4 : <155> | BER PRINT" CDOHNLIISTARTISPACEINITISPACEIBYS" 
308 DATA1@4,76,3,128,234,32,216,251,13,60,02 AD <2A4> 
‚95,47,75,59,82,32,65 *119> | 878 PRINT"START(SPACEHBEII "AD" CSPACEZIENDELE. 
39a DATA?S,84,73,06,13,8,169,1,162,4,140,0,3 PACEYBEL: "AD+407 <16&> 
2,186,223,159,0,32 “196> | A9@ SYS 1630,3152,3152+68B,AD <27> 
‚ABa DATALB9Y,255,32,192,255,162,1,32,201,255, 890 END <253> 
„56,176, 169,234,169,1,32,93 2243 ENDE DES: LISTINGS 
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II EIGINFEITS 





Eprombrenner für den Plus 
all! Incl. Treibersoftware auf Tape 
oder Disk. Bitte angaben! Für den 
C16/116/Plus 4 Eprom Bank mit 
192 KB, erweiterbar auf 384 KB 
schaltbar und abschaltbar. Ebenso 
Modulsoftware auf Tape oder Disk 
auch fertig gebrannt. Außerdem die 
starken Netzteile 1260 mA für C- 
16 (85.50 DM) inc. Porto, Steuer 
und Verpackung! Info gegen Frei- 
umschlag DM 1.00 Porto. 
Drohne-Soft J. Braunroth, Moordor- 
fer Str. 30, 3057 Neustadt 1 


Speedy-Cartridge mit Freezer 
zum Kopieren von kopierge- 


schützten Programmen nur für _ 


Plus 4. Kopiert 100% Programme 
auf Kassette oder Disk. Auch 
Turbo-Tape und FASTLOAD für 
1541, 1570 und 1571. Preis 60 DM. 

Speichererweiterung tür C-16/116 
auf 64 KB 80 DMI Speicherarwel- 
terung für SHARP PC 1600 um 32 
KB und um 64KB! Tel.: 069/686491 


Verkaufe C-16 + VC 1551 + 
Datasette + Bücher + 40 Lear- 
disks + 70 Spieldisks + ca. 15 
Anwenderdisks, der C-16 hat 
64KB. Preis VB 950 DM. Jens Pe- 
ters, Ahornstr. 1, 2741 Kutenholz, 
Tel.: 04762/1425 von 18 bis 19 Uhr! 


Verkaufe Ci16 + Datasette + 
Programme + Drucker Seikosha 
GP 560. Alld Geräte im guien Zu- 
stand! Festpreis 250 DM + ver- 
sandkosten!, Tel.: 08533/7141 ab 
18 Uhr! F 


mann nn nn nn or 
Verkaute Plus 4 mit Floppy 


1551 + Datasette + Literatur + 
Hefte + Originalsoftware auf Tape 
und Disk, z.B. CAD, Winterolym- 
piade, Dateimanager, Textmana- 
ger usw, Zusammen für 400 DM. 
Uwe Barndes, Am Pulverturm 1, 
3325 Lengede 3, Tel.: 05174/1882 
ab 17 Uhr 


Verkaufe wegen System- 
wechsel 1551 + Staubschutz- 
habe + Original-Spiele auf Disk 
und Kassette + Compute mit SA 
1/86-3/89 + zwei 64K-RAM IC’s 
(TMS 4464). Ausführliche Info ge- 
gen 1 DM in Briefmarken bei: 

M. Ohletz, Stöckmannstr. 158, 
4200 Oberhausen 1 


Eprombrenner für Plus 4 mit 
interessanten Hilfsprogrammen 
und viel brennfertiger Modul- 
software für Plus 4 und auch für 
C-64 für 130,- DM bei Heinz 
Schrimpf, Eikeloher Str. 4, 4782 
Erwitte, Tel.: 02943/3340 
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c-i6 + Datasette + Basic- 
Lernprogramm auf Cassatte + 
Basic-Lernbuch zu verkaufen. 
Preis: 110 DM + NN. Tel. 
06331/91574 ab 16 Uhr! 


c-16/plus 4 + Floppy 1551 + 
Datasstte 1531 + Computerrack 
+ Zubehör. Ca. 2 Jahre alt, wenig 
benutzt für 550 DM VB: Tel.: 
06503/8672 


‚Gelegenheit: C-16 mit Datasette 


+ Textsteckmodul + Joystick 
neuwertig für 80 DM zu verkaufen. 
rel.: 07021/2517, abends 
07382/1221 


Plus 4, 1551, Selkosha SP 
1000 VC, Software wegen Sy- 
stemwechsel zu verkaufen. Preis: 
VB 700 DM! Ralf Werheid, Tel.: 
02307/88823 ab 17 Uhrt 


Verkaufe: Plus4 80 DM, 1581 + 
5 Disks 200 DM, Joystick MF 2002 
20 DM, VC 1520 defekt 70 DM, 
Compute mit SA 15 Stück 30 DM, 
4 Data Beckar Bücher Plus 4 Stück 
20/25 DM, Textmanager C16 15 
DM, 20 Original-Kassettan je 5 DM, 
5  Anwender-Disk (Compiler, 
Copy-Programm, DFÜ) 30 DM. 6 
Spiele-Disks 30 DM, 1 Anwender- 
disk VC 1520 Soft 20 DM, Mi. 
Schmitz, Jahnstr. 1, 8031 Eiche- 
nau, Tel.: 08141/72835 


Commodore Plus 4, eine 
Floppy, zwei Datasetten, Bücher, 
Software, zwei Joysticks, Zubehör 
für 900,-DM zu verkaufen. Tel.: 
07181/3488 von 18-19 Uhr 





Verkaufe C116 + Datasette + 
Programme + Drucker Seikosha 
GP 500. Alle Geräte im guten Zu- 
stand! Festpreis 250 DM + Ver- 
sandkosten! Tei.; 08533/7141 ab 


‚18 Uhr! 


Endlich Ist er da! Ein Freezer für 
Plus 4 und C-16(64KB). Als Modul 
für nur 45,- DM bei: A. Blume, Am 
Kessberg 28, 4796 Salzkotten, Tel.: 
02955/6222 ab 18 Uhr! 


Suche Script/iplus Handbuch 
für Commodore 16/Plus 4 in 
Deutsch. Tel.: 0911/549252 


Kaufe Immer defekte Plus/4, 
Floppys 1541-1551 Angebote 
möglichst mit  Fehlerangabe 
(Netzteile und Handbücher gehö- 
ren dazu!). Telefon-Nr. angeben, 
rufe zurück. J. Braunroth, Moordor- 
fer Str. 30, 3057 Neustadt 1 


KLEINANZEIGEN Bam 


Wichtige Hinweise 
für Kleinanzeigeninserenten: 


Private Kleinanzeigen wer- 
den nur gegen Vorkasse 
veröffentlichti 


Zur Bezahlung von Kteinan- 
zeigen werden keine Brief- 
marken oder Fremdwährun- 
gen mehr entgegengenom- 
men! 


Kleinanzeigenaufträge unter 
Angabe sınar Postlagerkar- 
tennummer oder Hin 


weis „postlagernd” werden 


Der Verlag behält sich vor, 
alle von der Bundesprütsteile 
indizierten Programme, er- 
satzios zu Streichen. 


Wir weisen darauf hin, daß 
urheberrechtlich geschützte 
Soltware nur im Original zum 
Verkauf oder zur Verbreitung 
angeboten werden darf. 


Gewerbliche Kleinanzeigen 





BERRESARKEBHAREHH 


Achtung 8 
COMMODORE - USER ® 
Gratis - Info für 
0-64 1 G-16 / C-116 /PLUSA 
Spiele und 
Anwenderprogramme 
BERLAU-SOFT 
Postfach 1415 
2150 Buxtehude 
SRESÄRTRAERFRRAHEH 


TDDILLLLLLLDLSTHTELLLLDIEDTELTT 


SEHEN 
SEBATERHERHRE 


TW-Software: 
z.B.: Party-Simulator 
für PLUS4: 7 DM 


Info gegen 80 Pf Freiumschlag. 
Hermannstr, 11 j 
D-2211 Beringstedt 


DDULDIDEDEDUUEDDUDUERTEROERLEDLANE 


PIILILITIIEILILLIEIIURILIIITIDUIITRITDITRUTITININ 
616/01 16[64kYPlus 4 

Buchhaltung, Rechnungen, 

Etikettendruck, Kundendatei 
Termine, Lagerhaltung 


je Prg. = DM 15,- 
ges. Paket = 6 Prg. DM 49,- 
= V-Scheck-N.N. + DM 5.- 
KL-Soft 


| 
| 

für 
Kleinbetriebe & Privat | 
I 
I 
| 
Bruckmannstr. 4 t 
| 
| 


— 


. 7100 Heifbrann 
HIITEITLIIBAHLITARIDRRIABRTLIDDIIDIGRARUGODITTENE 


DVOOIIIOTOOOIDPOOOO 


THE FINAL FREEZER 
Dar erste Freezer 
tür C-18(84k) und 

Plus/4 Modul 
{mit Gehäuset) 
für DM 50,- 
bei Vorkasse 
NN + DM 6,- 


Harald Hobbeimann 
Junkernkamp 18 
‚2822 Schwanawede 
Tel. 0 42 09.53 90 


VIOILIIDDIIODIOOOOND 


AUHNETSTDIERBELIIERULIDIDITDEIRLERIDEDTRDEDLDID 
Peak SPRITE-BASIC lack 
Das sensationelle System, 

\ das auf dem PLUS4/C16 64K 
professionelle Softsprites ermöglicht. 
Test COMPUTE MIT 2/89: 

| "Empfehlenswertl' 
Mit Editor, Demo und Handbuch. 
Kass/Disk 39,- DM + Versand. 


Info/Bestellung bei: 


Thomas Höllt, 
Rosenbrunnenstr, 15, 
6940 Weinheim, 
Tel. 06201/12808 


INFERRINELIULIUIKTINTENADITITIDERIDUIL KU HIIKIANN 


VERFLRBEARERFLERER 


®& ©-18/Plus4 4 GRATIS-INFO 
® Spiele - Anwender - und 
& Kopierprogramme/Hardware 
% Gratis POKE-Liste bei: 

& Görtz - Software 
K. 
® 
® 
® 


DVIPPDOPOIOPDTOODO 
RVIPIIISIDGDOOS 


$ 


% 

& 

& 
Im Rosengarten 12 % 

6082 Gernsheim/Rhein 
Tel: densa/a 16. © 
SEERERCEERRTRTER 


s1 








BE LEN ZANZZEIGEN 


Biete Software 





Plus #/C16(64KB) Biete auf 14 
Diskettenseiten Spitzensoftware 
wie z.B. ACE Il, PD aus BRD und 
Ungarn, Bötticelli, Printmaster, 
Masterbasae für nur 30 DM 
(Vorkasse). Marc Brunsmann, 
Bernhardstr. 12, 2843 Dinklage 
P.S. Verkaufe 10 Games (Original) 
auf Tape für nur 15 DM. 


Hey ©-16/Plus 4-User!!! Biete 
superbillige Software auf Disk. 
Fordern Sia meine Liste von Über 
500 Programmen an bei: Thomas 
Koch, Stöcken 56, 2818 Rethem 


Window-Basic professionelle 
Programme mit Windows, Pull- 
Down-Menues mit Ram-Disk, Mul- 
titasking u. MS-DOS Disk (64K) für 
20- DM. Richard Englert, 
Flößanstr. 160, 8510 Fürth 


Super-PD-Software! Für 20 DM 
Vorauskasse 10 Diskseiten’ frei 
Haus. Alfred Weihträger, Mozartsır. 
8, 8850 Donauwörth, 

Tel.: 0906/1805 


Speed Copy 1551 Das ersteund 
einzige Backup das eine ganze 
Disk mit 1551 und Plus 4C- 
16{64KB) in nur 20 Sekunden ko- 
piert! Komfortable Menüsteuerung, 
kopert Read Error 22 + 23 unddas 
Ganze für nur 20 DM bei: 

Rüdiger Siebert, Tegelor Weg 1, 
3549 Volkmarsen, Tel.: 056937118 


Verkaufe absolut neue 
Software aus USA/Ungarn, z.B. 
Elite, Pink Panther! Bei A. Blume, 
Kessbarg 26, 4796 Salzkotten 2, 
Tel.; 02955/6222 nach 18 Uhr! 
Insider die Gracker-Zeitschrift auf 
Disk (nur 64KB}) gegen 1 DM Porto 
und 1 Disk bei: A. Biume, 
Kessberg 26, 4796 Salzkotten 21 
Freaks schreibt mir! 








Achtung Leute aufgepaßt!i 
Verkaufe suparschnelie Spiele auf 
Plus 4, z.B. Spy vs Spy, Somme- 


rolympiade und Star Games {nur 


Tape). Liste anfordern bei: Stephan 
Hey, Steinkenhöfener weg 10, 
3045 Bispingen 


6-16/116/Plus 4 PD-Soflware: 
über 45 Disks mit ausgesuchten 
Programmen. Demodisk mit Hun- 
Yaroring, Botticelli usw. mit daut- 
scher Anleitung und Katalog gegen 
10,- DM Vorkasse, Katalog einzeln 
gegen 1,40 DM Rückporto. Für 
Plus 4: Userportdisplay & Output- 
Treiber in seperatem Gehäuse. Ka- 
talog anfordern bei: Attila Keller, 
Drosselweg 25, 7150 Backnang 





The Final-Freezer der erste 
Freezer für C-16(64KB) und Plus 4. 
Als Hardwaremodul für nur 45,-DM. 
A. Blume, Am Kessbarg 26, 4796 
Salzkötten 2, 

Tel.: 02955/6222 


An alle C16/Plus 4-User! Biete 
PD-Software wie z.B. Godazilla, Bot- 
ticelli I+H, Hungaroring uvm. 


Diskseite 5,- DM. Liste bei Rück-— 


porto zu erhalten bei: 

Frank Hillemann, Hagenstr. 25, 
3410 Northeim, Tel.: 05551/8735 
- auch Tausch möglich! 


Achtung: Erstmals deutsche 
übersetzte Anleitung für Botticeii 
(komplett) für 8,- DM bei : 


C.1.G. KD Schindter, Luciusstr.10a ° 
6230 Frankfurt 80. Die Anleitungen _ 


sind sofort lieferbart 


Teximanager wird korres- 
pondenzfählg! Ihr Star NL-10 
o.a. Epson-Kompatible druckt sau- 
bere Umlaute und ”8” in allen 
Druckmodes, z.B. NLQ, BOLD. 
Leichtverständliche Anleitung auf 
Diskette z. Patchen Ihrer Textma- 





nager Software gegen Zusendung | 


eines Verrechnungsschacks über 
18 DM incl. Versandkosten. 
Hans-Jürgen Peter, Schottweg 14, 
23%0 Fiensburg 


Graflkprogramm Printfox 
Plus AIC-16 70 Grafiken, 35 
Randmuster, 19 Zeichensätze dt. 
Grafikeditor, Datagenerator für 
Grafiken. Ausdruck von DIN A4 
-DIN A?. Verbindung Grafik mit 
Text. Vollkommen manuegesteu- 
ert. NurDisk. Preis 30 DM + Porto 
oder NN. Zusatzdisk mit weiteren 
10 Zeichensätzen 10,- DM. 
Hermann Groß, Birkanweg 9, 
3042 Munster, Tel.: 05192/2081 
info kostenlos! 


Analle C-t6/Pkıs 4-Userl Biete 
10 Diskseiten 64k-Software {z.B. 

Terra Nova, Quiwi, Botticelli 1+2 
usw.) für nur 30 DM. Desweiteren 
biete ich 10 Diskseiten 16k für nur 
30 DM, sowie 1 Disk mit den be- 
sten Kopierprogrammen und 
Floppyspsed-Programmen für 10 
DM. Alles zusammen für nur 50 
DM. Scheine/Scheck an Wolfgang 
Eigl, Neues Str. 18, 7959 Achstetten 


C-16/C-118/Plus 4 Vorkaufo 40 
Topgames für 10 DM, Wahlweise 
volg Disk oder Kassette. 
Schein/Scheck an; Thomas Mid- 
dendorf, Sperberweg 5, 4410 Wa- 
rendort, Tel.: 02581/1434 


Erforderlich: Plus 4/C-16 + 64 
AAM "SYS-X” Die neue Compu- 
terzeitung auf Disk und Tape, Wir 
bieten: Tips und Tricks, Pokes, 
Sys, Tests, elgene Programme und 
beste Software, z.B.: Floppyspee- 
der 1541, Botticelli, Gedichtelll 





TEXT: 

SCRHIPTIPLUS-MODUL KUN 49, 
Das leistungsfähige Textvararbeitungspro- 
grarım für den C1B/Plusd. Vielseitigs 
Textgestaltung, Calculator, Serienbriels, 
Zeichensätze (Umlaute) und Schrittarten im 
Text frei wählbar. Textspeicherung auf 
Tassotto und Disketto, 32-KB-HOM-Modul. 
„Jetzt mit deutschem Handbuch, 
SENHPTPLUS-Asstrlent Casz Disk nur 1B,- 
Hilfsprogramme zu SCAIPT/PLUS: Deut- 
scher Zeichensatz (3Tastaturbelegungen), 
Individuelle Druckeranpassung (Umlaute, 
Sonderzeichen), Befshlserweiterung, 
BASIC-Programmaditor. 





SCHIPT/PLUS-Handbuch (deutsch) . 29,- 
Erweltarte Übstsetzung dor englischen Orl- 
ginalfassung, über 200 Seiten. 


SCRIPT/IPLUS-Pakot „.. komplett nur 89,- 


Enthält Programm-Modul, Handbuch 
(deutsch), sowie Assistent, 

DATEI: 

SUPERBASE COM 4A „mınm. Disk ni 90, 


Das profassion alle Datenbankprogramm für 
die effktive Verwaltung kleiner und großer 
Datenmengen mit dem Plus$ und C64. 
Außerst anpassungsfählg durch freala Ge- 
staltung der Eingabe- und Ausgabsformate, 
127 FeldarfDatensatz, 255 Zaichan/Fald. 
Programmiarbar. Menütührung, Plus4- 
Version {016-%4KB) um Grafikbefshle er- 
wöitart. Problomlossr Datenaustausch mit 
SCHIFT/PLUS. Deutscher Zeichensatz für 
Plua 4. Mit engl. Handbuch. 
Deutsche Literatur dazu u.a.: 
Pater Wlesa, Superbawe für Einsteiger 
(Daia Becker) oe. » 29,- 
Dans one in Supsrbase 
"or neransonsneontsäniunngennune DO“ 


Ei i ingenieurbüro für 
Intormationstechnik 


Schickt uns eigene Beiträge und 
Kleinanzeigen, die wir kostenlos 
veröffentlichen werden. Und alles 
zum Wahnsinnspreis von nur 5 
DMI!! Kontaktadresse: M. Büring, 
Markusstr. 7, 4470 Meppen 


Dies Ist keln Scherz sondern 
S$SV! Plus 4 PD: Games +1} 10 
DM, Botticeili (alle Versionen...) 10 
DM, Microrhythmen 10 DM, Un- 








gam15DM, Versandkösten 2 DM, 


entfallen ab 2 Disks. Jeder 10. Be- 
steller erhält Gratisdisk solange der 
Vorrat reicht! T. Schnetgöke, 
Ahornstr. 18, 4530 Ibbenbüren, su- 
che Elite + PD! 


Verkaufe Original C16/Plus 4 
Splele: Sextett, Powerpack je 15 
DM. Omnibus 2, Quiwi je 10 DM, 
Spiky Harold, Demolition, Interna- 
tional Karate, Torpedo Alley, Har- 
vey H. Squirm je 5 DM. Nur Tapel 
Geld (+3 DM Porno) und Bestel- 
jung an: C. Hirschhäuser, Gar- 
tenstr. 15, 2902 Rastede - für 10 
DM Winterolympiade auf Disk! 


Sprite - Basic! Das absolute 
Top-Programm für den Plus 4/016 
64K, das echte Softsprites ermög- 
licht. Disc oder Kassette 45,- DMI 
Renate Fath, Höhenweg 9, 

6940 Weinheim 7 





Das Beste für Ihren C16, C116 und plus/4 





KALKULATION: 


CALEIPLUS-Modul num mem NUR Ad,- 

Dis Takellenkalkulation, dia keine Pro- 
grammierkenntnisse von Ihnen verlangt.’ 
Extram schneller Maschinancoda im 32- 
KE-ROM-Modul. Dimension der Kalkula- 
tionsrnatrix: bie zu 254 Zeilen und 89 Spal- 
tan! Variable Faldgräßan (5-20 Zeichen), 
Zahlreiche Funktionen, Balkendiagrammea, 
Integriertes Druckprogramm dür Grafik und 
Taxt. Mit “ Anleitung. 


LICHTGRIFFEL: 


TROJAN Light Pon mit Casa. 59,.Dick 69,. 
Ein anderes Eingabsmadium. In vielen Fäl- 
len eine Altarnalive zur „Maus". Am 
Joystick-Port anschließbar. Mit Mal- und 
Hardcopy-Programm. Rückgaberecht bei 
Nichtgefallan. 


UNTERHALTUNG: 


IRFOCON-Advenfuren „nm je Disk 90, 
Wer Englisch beherrscht oder seine 
Kenntnisse erweitern will, solite jetzt zugrei- 
fen, Kenner beschreiben diese fasselnden 
Toxiabenteuer mit nur ainem Wort: 
„WOW, Die berühmlen Klassiker ZORK 
k ZORK U, ZORK II, STARCROSS u, SUS- 
PENDED eind Für dan Piusa/016-84 KB 
Drei Disketten erhalten Sie für 99,- 
Ale fünf Disketten kosten nur 139,- 





















NETZTEIL „.„„nuumenemmnnmmnenn aur 40, 
Mahr Batriabssicherhsit durch höhere Lei- 
stung (9V/t.2A) Für C16/C118 







BUCHPAKET mussenmunsumstammstene AUF GO, 
Bücher von COMMODORE und DATA 
BECKER (snglische Ausgaben} über danG 
64. Auch für C1B/Plus4-Besitzar geeignet. 
1750 Seiten in sieben Bänden: Reference 
Sulde, Machine Language um. 


= und vielen mehr, Gratis-Info anfordern. 


Mi Dipl.-Ing. H, Stechmann 
D-2152 Horneburg, Postfach 210 


Tel.: een 0 89/3 50 84 59 
Verundkosten DM 5,- (b. Nachnahme zzgi, Gebühr) 











Original C-16/Plus 4 Games 
auf Tape für 5 DM zu verkaufen; 
BMX-Simulator, Terra Cognita, 
G-Man, GWNN uvm. Ruft an, Tel.: 
06174/3329 oder Liste anfordern 
bei: Volker Rest, Häinerbergweg 
5, 6240 Königstein 





Weltwelt das beste Pro- 
gramım seiner Art! Sprite-Basic, 
ein Muß für jeden Plus 40-16 
(64K)-User. Preis: 44,- DM + Porstol 
Walter Losmann, Ahornstr. 18, 
6947 Laudenbach 


Verkaufe Originale (DIK) z.B. 
Space Ace, IBall2, Arkanoid 2, 
Trantor: 5 D, Becker, Joyst., Leer- 
disks, Hefte. Liste gegen 2 DM in 
Briefm. Tel.: 0431/79861 oder 
Marco Hell, Birkenweg 9b, 

2300 Klausdorf 


SUPER! PD-Software so billig 
wie zu Ur-Omas Zeiten! Einzelpro- 
gramme ab 0,10 DM! Wo es das 
gibt? Natürlich bei Thorsten Bieck, 
Loher-Weg 12, 2240 Heide 

Sofort doppelseitige (Marken-) Da- 
mocdisk tür nur 5 DM anfordern! 
Viele gute (64KB-)Programme vor- 
handen, die es nirgendwo billiger 


gibt 
PS: Jeden Monat Sonderangebote 
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REEL le 
CIS/TCIIG 
Zn a A 


MASTER- COrY 1004Naschinenspr. 
kopıarı dir seısıe Arotestive Software 
von Origimal-Kaskeiten. Siehe Tası in 
Sondernafe 5449 „ Yuster-Copy Ist z,2t. 
das beste Köopierprogreem am Markt. 
ACHTUNG: Nastar-Cipy derf nur für Sicher- 
heltskopien genytak warden !1 


“= kein 5Y$-Befehi mehr erforderkich 
+ hat aına Hulcı-Save Funktion 
“ kopiert auch Resetschutz Fit 
= inch. de, Bedjenungsanleitung 
Fur CI6+59K-RAn & Plund DM >9,* 
ee für alle Originel 
“ Besitzer sur DM 20, - 
ikaing Dıskelten einsenden Fr} 


ur nn. 2 


en Flie-Gopy ıncı.Anı 
inzigartigen Super-Kopierprogramm 


EIG+baK-Ban #4 nur DI DIN 29, - 





a QUuSsE Lebyrintn-Ackion 
0 


+4 nur Disk DM 
STar- INVADER kerlonspı jer 
Hl DM ı0 
M Breitental) 
DM 19,- 
kopıerprograen 
inc}. Anleitvwng ur res I le adnurh 
C1örGdX-RAM I »A 
SHAPE- garzulıriedel ; 
Tr6 h +a DM 15, 
DISK- RET TER rettet Pragrenns 
To Rd: mr Disk DM 10,=- 
BASIT-SAFE codiert RERBESERS 
Cıh+bak-Ran 0 +4 DM ı15,* 
SRAFIKPRINTER Bilddruck 
Kı-Res.Grafiken nuchbenendeln u. ehe 
Ciö Rh +4 DM = 
5 BASIC- FRG ohne anieitung. 
ETErBaK RAN a +4 nur Disk DM 20 " 
S BASIC-PRrRG ohne Ankeitüng 
a ‚a nur Dısk DM 
BASIC- PRG als Pe 
Eierem- RAN» B +4 nur rt! om 3»2.* 


=29,- 





Info kostenlos 


Wir auchen athndig seibstgeschriebune 
und gute Programme { mwr Maschinenspr. 44 
sowie ein selbst kommantierten ROM - 
LI 


tel. sn art Ba Re Fur! Er) 

R rok, Baer Gocıbes ur. 25 
ara nEnE" 1, Bert, PN +3, DR +Bargeld+ 
Besteller [per Einschreiben) beiuasen 
auf Jedes Produkt ein Rabatt von 2,-DH # 
V-£check # Auflend nur BArg. oo. Euroc. 


Plus AMCIEI ICE! Biete var- 
schiedene Original-Kassatten zum 
Verkauft Info gegen Rückporto bei: 
D. Freund, Rosenstr. &, 

3563 Dauthhetal-Eimshausen, 
T8l., 06466/7942 




















DAS CAD - 








Into gegen Porto Dipl.Ing, M- F 
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FÜR IHREN 
© 16 / 116, PLUS-4 


Professionelles zeichnen, konsiruleren und enwmerten ni 


ep. W D u PR 





Bemaßung und Beschriftung 
beliebiger Größe 
maßstabsgeireus Ausgabe 
oder Plotter 

konfigurierbar für E 
Floppy-Datassstian Betrigb 
auch als Harelwaremodul lieferbar 


dar Zeichnung auf Bruck 


n-Floppy, Zwei-Floppy oder 





Hauptotr, 159, D-6749 Freckenteld 


Publlie-Domain ©-16/Plus 2. 
Es gibt stets Neuss! Biete 60 Dis- 
ketten nach Themen geordnet, 
keine doppelten Programme. Das 
Beste aus Österreich, Ungarn, Ju- 
gostawien, USA, BRD. Doppelsei- 
tige Probedisk incl. Liste aller Pro- 


gramme für 10 DM.NurListe2DM . 


in Briefmarken! Antwort sofort! 
F. Eitner, Dr, Beber Str. 17, 
2222 Marne 


ihr Plus 4 spricht! Geben Sie 
Worte/Sätze ein, der Rechner 
spricht altes {Lispeln, rauhe 
Stimme... einstellbar) Preis: 10 DM 
- Lyrik: Ihr Plus 4 wird zum Dichter! 
Sietippen ein, wie das Gedicht sein 
soll, Ihr Plus 4 dichtet danach (1000 
Worte, die er sinnvoll einsetztl) 
Preis: 10 DM Disk/Tape. 

Vorkasse/Schack - S. Plag, Sieg- 
nerstr. 33, 5000 Köln 91 





: (Vokabel-)Trainer nicht nur zum 


Vokabelpauken DM 10,-/Multima- 
ster, das Programm zum Pauken 
von Aufgaben mit Auswahlantwür- 
tan DM 10,- / Grafik-Designer d. 
besondere Grafikprg. DM 10,- / 
8080/8085 Simulator simuliert ein 
8080/8085-Entwicklungssystem 
DM 25,-/ Videoverzeichnis verwal- 
tet Ihr Video 0. Audiokassettenar- 
chiv. Sie wissen immer weicher Ti- 
tat wo zu finden Ist oder wo d. 96- 
rade benötigte Spielzeit noch frei 
ist, DM 10,-! 

Hans-Dieter Yait, Rennweg 21, 
8441 Alterhofen 


C16/1165/Plus 4; Biete Diskette 
mit 50 Spiefen für nur 20,- DM Vor- 
kassg oder + Nachnahme. Diet- 
mar Freidinger, Hohlweg 13, 6604 
Fechingen 


Achtung C-16-User! Chaos in 
der Programmsammlung? Disk- 


SYSTEM. 


r Richtung und 






KLEINANZEIGEN Bau 


Katalog schaft Ordnung! 
Hardwarebed.: Plus 4, C16/116 
(64KB), Floppy 1551 oder- 541, 
Drucker MPS-801 oder Kompatible, 
Programmdisk und Anleitung 20,- 
DM. Nur Vorkasse bar oder Scheck 
an: Topi-Soft, Torsten Fichtner, 
Hansering 46, 2400 Lübeck 1 -Be- 
arbeitungszeit ca. 8 Tage 


Verschiedenes 





Commodore 16/116/Plus 4 
80 Super-Pokes (List-, Saveschutz 
und...) für nur 3,- DM in Briefmar- 
ken! P. Schäfers, Riekestr. 5, 4402 
Greven 1 


Ihre gebrauchten Kassetten- 


farbbänder (keine Karbon) sind 
kein Mülll Ich färbe Sie NEU, für die 
Hälfte des Neupraises. Typ ange- 
ben, aus Kostengründen bei 
Freunden sammeln und schicken 
an: Drohnse-Soft, Moordorter Str. 
30, 3057 Neustadt 1 


Wer telit sich mit mir PD- 
Soft-Kosten? Preis wird auf alla 
verteilt! 100% Antwort! (C-18/Plus). 
Christian Bartsch, Norkshäuschen 
136, 5600 Wuppertal 1 


Absoluter Anfänger sucht zu- 
verlässigen Tauschpartner für Dis- 
kette. 100%ige Antwort! Schreibt 
an: Ulf. Winter, Hospitalstr. 14, 
4780 Lippstadt 


?27? Btx 27? Wer kann helfen? 
Bix mit dem Plus 4, z.B. mit dem 


Dipl. Ing. M. Rätzel.... 
Gewerbliche Kleinanzeigen 







Iinserentenverzeichnis 


Sauapn ron annununnnunnt het 


" Bytetachnic®...uenreanannernsunnnnennnnnnnn 


Tronic Verlagsgesellschaft mbH 
T.S. Datensystam@..unsssennonsnennanns 


NET ee Seite 2, 67, 68 
BuadgnpnnovnOs@pT«oFsn0hdaraerin nen Seite 27 


Anzeigenschluß für private 
und gewerbliche Anzeigen 
für Ausgabe 6/89 ist 
am 22. September 1989 


Btx-Modul vom C-64 möglich? E. 
Marx, Lommertzheimstr, 16, 5177 
Titz-Kalrath, Tel.: 02101/142992 


Suche Tauschpartner für 
Super-Programme! Auf Disk 
und Tape, auch 64 KByte. Schreibt 
an: A. Sielaff, Andreasstr. 5, 
579% Briton 1 


ACHTUNG! CIG nimmt noch 
Mitglieder auf. Wir bieten: Tips + 
Tricks, Super Clubzeitung, kosten- 
lose PD-Software, PRG-Bibliothek. 
Noch nicht genug? Danr am be- 
sten heute noch unsere Super Info 
anfordern bei: CIG c/o K.-D. 
Schindler, Luciusstr. 10a, 

6230 Frankfurt 80, 

Tel.: 069304941 bis 23 Uhr! 





Der D.C.B. Computer Club 
sucht noch Mitglieder! Der Club für 
alle C-18/116 und Plus 4 Eigene 
Super Clubzeitschrift! Monatliche 
PD-Software auf Disk oder Kas- 
settel Superwettbswarbe. Original- 
software zum Mitgliedspreis! For- 
dam Sie noch heute unverbindtich 
den Clubantrag und Infos gegen 
1,- DM in Briefmarken an. D.C.B. 
Computer Club, Dierk Claus 
Burkhardt, Im Hardifeld 31, 

4220 Dinslaken 3 





Suchen Kontakt zu Plus 
Besitzern! Wir suchen Kontakt zu 
Plus 4-Basitzern in der BRD, 
Schweiz oder Österreich.. Bitte 
schreiben Sie an folgende Adresse: 
Rena & Sven Spiller, 
R.-Breitscheid-Str. 25, 

DDA-1300 Eberswalde-Finow 1 


Tauschpartiner gesucht! Für 
Plus 4C-16 + Floppy 1551/81. 
Gute Software vorhanden. Listen 
an: Dirk Freund, Rosensir: B, 
3563 Dautphetal-Eimshausen 
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Kassette & 


tem SOFTLWAre- 


e sind ah IR 


&s " service 


e- Das sind unsere 
| Sonderhefte 


für C16/116/plus4! 






















Sonderheft 5/88 (Heft 6,50 DM} 
Best.-Nr, CSOK-5/3 Kassette  25,- DM 
Best.-Nr. CSOD-5/3 Diskette 25,- DM 


Sonderheft 1/88 (Heft 6,50 DM) 
Best.-Nr, CSOK-1/3 Kassette 25, DM 
Best.-Nr. CSOD-1/3 Diskette 25,- DM 


Checksummer, MC-Checksummer, Sounddigi- 
tizer (Teil 1}, Muli-Disk, WINDERF, Print- 
Timer, Soundmaster, File-Dump, AVP, Super- 
basic +4, Diamond Hunter, Dooly, U-Jäger, 
Crazy Factory, Das Weltspiel : 


Sonderheft 2/88 (Heft 6,50 DM) 
Best.-Nr. CSOK-2/3 Kassetie 25, DM 
Best.-Nr. CSOD-2/3 Diskette 25, DM 









Sonderheft 3/89 (Heft 6,50 DM) 
Best.-Nr. CSOK-3/4 Kasserte  25,- DM 
Best.-Nr. CSOD-3/4 Diskette  25,- DM 


















Schnelle Sprites, Hilfreiche Routinen, Screen- 
Compiler, Disk-Restauration, Drummaster, Ece- 
chece pour deux, Break out, Mensch, ärgere Dich 
‚nicht, Cross-Liner, Spacecat 


Combat, Safeguard, The Final Basic, Space Night, 
Genesis, Solitair, Dämon 











Sonderheft 6/88 (Heft 6,50 DM) 
Best.-Nr. CSOK-6/3 Kassette 25,- DM 
Best.-Nr, CSOD-6/3.Diskerte 25,- DM 


Sonderheft 4/89 (Heft 6,50 DM) 
‚Best.-Nr. CSOK-4/4 Kassette  30,- DM 
Best.-Nr, CSOD-4/4 Diskette 30,- DM 

































Cavebattle, Ritter für den König, Grafikmaster, 
Flires-Lupe, Extended Grafik Mode, Turbo Cur- 
sor, Truck, Othello, $tarpost, Mini-Geos, Ou- 
trol, Intermusik 


Vier gewinnt, Filmmaster, Der Fluch, Oils well, 


Checksummer, MC-Checksummer, Sounddigi- 
Tractalberge, Checksummer 


tizer (Teil2}, NCS, Copy 64K, Jumping Bobby, 
Super Senso, Abenteuer im Land der Burgen, 
Basic-Compressor, PRO 7 


Sonderheft 3/88 (Heft 6,50 DM) 
Best.-Nr. CSOK-3/3 Kassette 25,- DM 
Best.-Nr. CSOD-3/3 Diskerte 2$,- DM 


Checksummer, MC-Checksummer, Sound- 
digitizer (Teil3), Powerball, Death Planet, Solve 
Master, Trouble, Oil Hunter, Biorythmen, Ve- 
getarier, Diskduplicator, MC-Help 










Sonderheft 5/89 (Heft 6,50 DM) 
Best.-Nr. CSOK-5/4 Kassette 35, DM 
"Best.-Nr, CSOD-5/4 Diskeite 35, DM 


Sonderheft 1/89 (Heft 6,50 DM} 
Best.-Nr, CSOK-1/4 Kassette  25,- DM 
Best,-Nr, CSOD-1/4 Diskette 25,- DM 





























The Galaxy Master, Explosion, Pac Man, Zei- 
chensprites, Diskstart, Debugger, Höllenfeuer, 
Basicmon, Checksummer 


Escape, Skat, Helix, Agent, Treck, Point-Test, 
Sereen-switcher, T'ype, Schraffieren 









Bestellungen bitte an: 
Tronic-Verla 
Postfach 870 ° 3440 Eschwege 
oder telefonisch: | 

(0 56 51)3 00 11 bis 18.30 Uhr 
Versand erfolgt per Nachnahme 
oder Vorkasse (Scheck, Bar) 















Sonderheft 4/88 (Heft 6,50 DM) 
Best.-Nr. CSOK-4/3 Kassette 25,- DM 
Best.-Nr. CSOD-4/3 Diskette 25,- DM 






Sonderheft 2/89 (Heft 6,50 DM) 
Best.-Nr, CSOK-2/4 Kassette 25,- DM 
Best.-Nr. CSOD-2/4 Diskette 25,- DM: 














Checksummer, MC-Checksummer, Fußball- 
Manager, Kikstart, Scramble, Fight in Space, Spe- 
cial FX, Laufschriltgenerator, $ampler, Furıny 
Letter, Startadressen-Lister, Terminal-programm 








Shooter, Brain-Tower, Jawbreaker, Text 80, Ap 
felberge 3D, Gitarre Plus 4, Macrotast, Referenz 
16 








Eine Bitte: Der Softwareversand ist ein Leserservice des Tronic-Verlags. Alle Anleitungen sind daher dem 
entsprechenden Heft zu entnehmen. Wollen Sie ältere Software, bestellen Sie bitte das Heft mit. Sollte es 
ausverkauft sein, kopiert unser Versand gegen einen Unkostenbeitrag in Höhe des Heftpreises alle Anlei- 
tungen für Sie. Vermerken Sie bitte auf Ihrer Bestellung » + Heft «! 
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SORFTWARE-SERWIGE Ha 





Heft 5/87 

Commodore 

Bestell-Nr. COM CK &43 18,-- DM 
Bestell-Nr. COM CD 58 20,-- DM 


Traffic Memory (YC 20), Shooter (VG 
20), Neuer Input (Gi6/11ö/plus 4), 
Superlist (© 16/116/plus 4), Marble (C 
168/116/plus 4-64 , Character- 
Generator (© 16/116/plus 4), Quadrafo 
(© 64), FCMON Teil 2 (C 64), Minas 
Gundur (c 84}, Festspeicher (C 64} 


Schneider 

Bestell-Nr. COM &K 5/3 18,- DOM 
Bestell-Nr. COM SD 58 23,-- DM 
Omeganea, Screen Dump, Double 
Trouble 


Heft 6/87 

Commodore 

Bestell-Nr. COM CK 6/3 16,-- DM 
Bestell-Nr, COM CD 6/3 20,- DM 


Mountain Jack {VC 20), REM- 
Zeileninvertierer (VO 20), Recovery (© 
1811 16/plus 4), Airwolf (C 16), Turtle 


(© 64), Duell 2005 (C 64), DCMON Teil 
3 (C 64), Town Rescue (C 64) 


Schneider 

Bestell-Nr. COM 5K 83 18,— DM 
Bestell-Nr. GOM SD 6/9 23,- DM 
Break out, Luna 9 (484), Aulobak (464), 
Checksummer 


Heft 7/87 


Commodore 

Bestell-Nr. COM CK 773 16,— DM 
Bestell-Nr. GOM CD 7% 20,- OM 
Bomb Scare (VG 20 + 8K}, Eixanor (VC 
20}, Checksummer (C 16), Chacksum- 
mer (© 16-MC), Fight in the Dessert (© 
16), Tom and the Apple Farm {GC 
16/116/atus 4), Toolbox (C 16), Defense 
(6 18), Tapecopy (© 19), Autostarter (G 
18), Monitorgchutz (C 16), Nibblar {C 
64), Window (GC 64), Psion 3 (C 64), 


Hungry Hoodeium {C 84) 

Schneider 

Bestell-Nr. COM SK 773 16,- DM 
Bestell-Nr. COM SD 713 23,-- DM 


Grenad 2.0 (464/664/6128), Mini Brea- 
kouf (464/664/6128), Firmjump (464), 
Nighiförce (464) 


Heft 8/87 


Commodore 
Bestell-Nr, COM CK 8/3 15,-- DM 
Bestell-Nr. COM CD 8/3 20.- DM 


ZS-GEN (VC 20 + 3. K), BATMAN 
(VG 20), Checksummer (MC, GC 16), 
Turbo-Tape (C 16), Gosub mit Labels 
(C 18/118/+4), Admiral (C 16 + 64. K), 
ZS-GEN (CO 64), RAID (© 64), Zauber- 
wald (C 64) 


Schneider 

Bestell-Nr. COM SK 8/3 16,-- DM 
Bestell-Nr. COM-SD 8/3 23,— DM 
Diskmonitor (484), Orgel-Champ 
(464/684/8128), Buffalo Bill (464), Bliz- 
zard (464/664/6128) 


Heft 9/87 

Commodore 

Bestell-Nr. COM CK 9/3 16,- DM 
Bestell-Nr. COM CD 93 20,- DM 


Tauziehen (VG 20), Handwerker (VC 20 
+ 3K), Plus Basic {(C 16/116), Invert 16 
(G 16M119/+4), IMP (© 16118 +4), 
MC-Checksummer (C 16), Biklmaker (G 
64), Fünf Wochen im Balton (G 64) 


Schneider 
Bestell-Nr. COM SK 9/3 18,- DM 
Bestell-Nr. COM SD 9/9 23,- DM 


P.P.S. (446/664/6128), Prostar (464) 
Heft 10/87 


Commodore e 
Bestell-Nr. COM CK 10/3 16,- DM 
Bestell-Nr. COM CD 10/3 20,- DM 
Fragezeichen (VC 20+3 Kl, MC- 
Checksummer (© 16), Games Basic (© 
16/1168/plus 4), Ausweichmanöver (C 
16/118/plus 4), Eierlauferı (C18/116/ 
plus 4), Good Shot (G16/116/plus 4}, 
Checksummer (G 64), Laufschrift (C 64), 
Fioppy-Monitor (C 64), Blaster (C 64) 


Schneider 

Bestell-Nr. COM SK 10/3 18,- DM 
Bestell-Nr. COM SD 1098 23,- DOM 
Turbo-Spriies (464/664/6128), Star 
Treck (464/664/6128), X-Race (484), 


Amsbreak {484/664/6128)}, Screens 
(464), Create (484) 

Heft 11/87 

Commodore 

Bestell-Nr. COM CK 113 16,- DM 


Besteli-Nr. COM CD 119 20,- DM 
Wormy (VG: 20), Kursiv-Creater (© 16), 
MO-Checksummer (© 18), Greäture 
Gasile (© 16/118/plus 4), Alfred (C 
16116/pfus 4), Checksummer (© 16), 
Time 84 {C 64), Last Mission (C 84), Vier 


im einer Reihe (C 64) 

Schneider 

Besiett-Nr. GOM SK 113 16,- DM 
Bestell-Nr. GOM SD 113 23,- DM 


Texier (464/664/6128), Burning Wheels 
(464166416128), Syndrome’s Message 
(464166416128), Quadrato (464/664/ 
6128), Checksummer (OPC} 


Heft 12/87 


Sommodore 

Bestell-Nr, COM CK 12/3 36,- DM 
Bestell-Nr. COM CD 1283 20,- DM 
Alien Attack (VC 20), Super-Senso (VG 
20 + 3 K), MC-Checksummer (C 16), 
Egon (© 16), Hunter (© 16), Basic- 
Bequem (C 16), Checksummer (C 64), 
Burgenstürmer (C 64), Malibu (C 64) 


Schneider 

Bestell-Nr. COM SK 12/93 16,- DM 
Bestell-Nr. COM SD 12/3 23,- DM 
GENAD 2.1 (464/664/6128), Multimode 
(484), Master Mission (464/664/6128), 
Fireball (464/664/6128) 


Heft 188 

Commedore 

Bestell-Nr. COM CK 174 _16,- DM 
Bestell-Nr. GOM CD 1/4 20,- DM 


Kupka-Kola (VC 20) Pac {VO 20 + 8K), 
Checksummer {GC 16), MG- 
Checksummer (© 16), Append (GC 
19116/ +4), 15’er Puzzle (© 18/1184 
+4), Invasion (G 1@/118/+4), Quadıs 


(© 18/118 +4), Directory-Help (C 64),. 


Auto-Start (© 64), Push I (C 64}, Check- 
summer (G 84), Jac the Pac (GC 64), 
Mission Germany (C 64) 


Schneider 

BesielHNr. COM SK 14 16,- DM 
Bestell-Nr. COM SD 14 23.- DM 
Symbol Poker (484/664/6128), Hoxkey 





(464/664/6128), Primt Pictures(4647 
8564/6128), Windfall (434) 

Hafı 2/88 

Commodore 

Bestel-Nr. GOM CK 2/4 18,- DM 
BestelHWr. COM GD 2/4 20,- DM 


Schneider 

‚Bestell-Nr. GOM SK 34 16,- DM 
Bestell-Nr. COM SD 3/4 23,- DM 
Asteroide (46418646128) 

Hefl 388 

Gommordore 

Bestall-Nr. COM CK 34 16,- DM 
BestellNr. COM CD 34 20,- DM 


Pixel-Grafik (VG 26), Pooyan (VG 20), 
Grafiklupe (© 16/116/plus 4}, Farbta- 
stenbelegung {G 18/1 16/ptus 4), Firelab 
(C 1671 16/ptus 4), MO-Checksummer (G 
16), G 64-Chscksummer, Mullitoolbox 
(G 64), Kursiv-Creater (G 64), Gopter- 
Duell (G 64), Mad Mission (© 64), Drei 


Drachentöter (C 64) 

Schneider 

Bestell-Nr. COM SK %4 16,- DM 
Bestell-Nr. GOM SD 34 23,- DM 
Filemanager (484),  Light-Gunner 
(464166416128) 

Heft 4/88 

Commodore _ 

Bestall-Nr. COM CK 4/4 18,- DM 
Bestell-Nr. COM CD 4/4 20,- DM 


Char-Befehl (C 16/118/plus 4), Oheck- 
summer (C 16), MC-Checksummer (C 
16), Scorehunt (GC 16/116/plus 4), 
Char-Menü (C 64), Sky-Fighter (C 64), 
Scoit (0 64) 


Schneider 
Beslell-Nr. COM SK 4/4 16,- DM 
Bestell-Nr. COM SD 414 23,- DM 


Laufschrift (464/864/6128), Tron Tor- 
ec) (464/664/6128}, Checksummer 


Heft S/88 

Commodore 

Bestell-Nr. COM CK 5/4 16,- DM 
BestellNr. COM CD 3/4 20,- DM 


MC-Checksummer (G 16), © 18 Schal- . 
ter (C 16 + 64 K), Window-window {C 

16/1 16/+4), Starwars (GC 18/116/+4), 

Shar-Prinv/Char-Basic (G 64), Kosmo- 

dam (C 64) 


Schneider 
BestellNr. COM SK 5/4 16,— DM 
"Bestell-Nr. GOM SD 5/4 23,— DM 


Disketienverwaltung (4564/8128), Teick 
en (484/684/8128}, Checksummer 








Char-Adress/Char-Alom (© 64). Hires- 
Mirror (C-161116+64KX/plus 4), Mister 
Stone. (© 84), Krackout (C-16/116/plus 
4), Nightmare {C 64), Xelien (6- 
16/116/plus 4) £ 


Schneider 
Bestell-Nr. COM SK a4 16,- DM 
Besteh-Nr,. COM SD 84 23,- DM 


6564/6128), Subcommand {464/684 
6128), Allen-Landing (464/664/6128) 


ıHefl 7/88 


Gommodora 

Bestell-Nr. COM CK 7/4 16.- DM 
Bestell-Nr. SOM CD 74  20,- DM 
Ghostwriter (C 64), Ganymed (GC 64), 
Speicherptatz {G 16), Basic-Sucher (C 
16), High Screen Polish {C 16), Hypra 
koad (C 18), Hacker Training (© 16) 


Schneider 

Bestell-Nr. COM SK 7/4 18,- DM 
Bestell-Nr. GOM SD 7/4 23,- DM 
Tapecopy (484), The Expedition (464), 
Zurück in die Zukunft (464/664/8128), 


Checksummer (464664/6128) 
Heft8/88 

Commodore 

Bestell-Nr. COM CK 8/4 18,- DM 
Bestell-Nr. COM CD 84 20,- DM 


Disk-Halp {C-16), Sprachausgabe (C- 
64), Big Apple (C-16), Intruder (C-64), 
Sedam (0-16), Zonex (C-16) 


Schneider 
Bestell-Nr. COM SK 974 1&,- DM 
Bestell-Nr. COM SD 8/4 23,- DM 


Siyte-Zeichensatz {(GPO 464/664/6128), 
Bomb-Pac (GPG 484/664/6128), Check- 
summer (CPC 464/664/6128) 


Hefte und Programme Compute mit (Normalausgabe) 


C16 - SA 5/89 
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BE SOLFU\WTARE-SERWIGE 


Spitzenspiele zum Superpreis! 





C-64 


Superpaket 1 
Baller-Spiele 


Mission Code, Duell 2005, Intercep- 


ter Base, Space Odyssey, Raid 


OBK-1 20,- DM 
CBD-1 20,- DM 






Superpaket 2. . 
Strategie-Spiele' 
Quadrato, 4 in einer Reihe, Mühle, 
Jos, Rowly, Psion 


CSK-1 
CSD-1 


20,- DM 
20,- DM 


Superpaket 3 
Abenteuer-Spiele 


Stoneage Comic, Taxi-Driver, Biene 
Maya, Shila, Minas Gundur, 
Treasure-Hunt: 


CAK-1 
CAD-1 


20,- DM 
20,- DM 


Superpaket 4 
Geschicklichkeits- 
Spiele 

Schotter, Space-TAXt, Haunted Inn, 
Turbo Racer 2 
CGK-1 20,- DM 
CGD-1 20,- DM 
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"O654. 


OSD-1 





Anleitungen zu unseren Programmen erhalten Sie aus unseren Hef- 
ten. Bei ausverkauften Heften erhalten Sie zum Heftpreis Fotoko- 
pien der Spielbeschreibungen. Ä 
Hefte ohne Software nur gegen Vorkasse! 


C-16/116/ +4 


Superpaket 1 
Baller-Spiele 

Good Shot, Hunter, Cosmic Terror, 
* Hyperspace' 


OBK-1 
OBD-1 


20,- DM 
20,- DM 





Superpaket 2 
Geschicklichkeits- 
Spiele 


Grazy Worm, Panic, Frogger, Egon, 
Eierlauf, Ausweichmanöver, * Dan- 


ger Willi, Tom, Airwolf, McStoney 


20,- DM 


Superpaket 3 
Strategie-Spiele 
Cube, Super Q-Bert, Schwimmen, 


Quadrato, Memory, * Admiral, 
15ner Puzzle, Quadris 


OSK-1 20,- DM 
20,- DM 


Achtung!!! 


Die mit * gekennzeichneten 
Programme benötigen 
mindestens 32 K RAM 










I SGK-2 


Schneider CPC 


Superpaket 1 
Baller-Spiele 








Superpaket 2 
Geschicklichkeits- 
Spiele 

Pacman, Boing Boing, Master Miss- 
ion, Fireball, Breakout, Amsbreak, 


Orbit Chikane, Panik, Burning 
Wheels 


20,- DM 
20,- DM 


SsGD-2 


software service 


Der Tronic-Verlag bietet Spitzen- 
software für Jedermann. 
Überzeugen Sie sich von unseren 
Angeboten, und bestellen Sie noch 
heute. Alle Bestellungen werden 
innerhalb nur 


1 Woche 


nach Eingang bearbeitet. 
Telefonische Bestellung unter der 
Rufnummer 


0 56 51 1300 11 
bis 18.30 Uhr 
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Das besondere Angebot für unsere treuen Leser 












Mer: 
| DENK 
’ SPEIE 
DER NEN 


+ 












Großes Lexikon der Mu- 
sik. 200 Komponisten mit 
über 1.000 Musikwerken. 
Dazu alles über Instrumen- 
te von A-Z. 

3Bd., zus. 736 Seiten, 28x 
22 cm, gebunden. 

{Fräh. Vertagspr-DM 128,—)* 


Jetzt bei uns 4930 





nur DM 
Best.-Nr. 174114 











1f1 Geister. Leckere Liköre 
und Schnäpse selbsige- 
macht! 111 „geistreiche" 
Ideen für gute Tropfen, aus 
Kräutern und Früchten. 

124 Seiten, genaue Re- 
zepte und Anleitungen, 


Farbfotos, geb. 
24: 


Nur DN 
N Best.-Nr. 182826 
“3 & 
a’: Erfolgreiche Briefe, 
Reden und Verträge 







) Edgar Allan Poe: Gesam- 
melte Warke. Die gesam- ed, NOnEgen sn 
melten Schriften vom Mei- | | egungen lur zungen- 






de Briefe, treffende Re- 
den und sichere Verträ- 


ge. 

2 Bd., 750 Seiten, Abb., 
gebunden. 

(Früh. Verlagspr. DM 78,—)" 






ster schauriger Erzählun- 
gen und Wegbereiter ame- 
rikanischer Literatur. 

6Bd.,zus. 1,908 Seiten, le- 
derähnlicher Einband mit | 









Goldprägung. 
6 Bände komplett | |NeRhostuns N 
nur DM 29: 80 || Beste 27057129: 


Best.-Nr. 301850 








Mythos der hohen Ma- 
sten. Faszinierende Bild- 
Dokumentation über die 
Welt der Segelschiffe. 

272 Seiten, farbig bebil- 
dert, 29x 21 cm, geb. 

(Früh. Orig.-Ausg. DM 148,—)7 | 
ei nel uns 19x 12 cm, geb. 


80 | Kompl. nur DM 
ka -Nr. Nr 21520129: Best.-Nr. 39 


"Früherer Verlagspreis aufgehoben, jetzt erstmals in unserem Angebot. 


Eugen Roth — Das ge- 
samte heitere Werk. Die 
gesamten Lebensweis- 
heiten, liebenswerten Ge- 
dichte, Anekdoten... 

3 Bd., zus. 1.872 Seiten, 





zz. Knifflige Denkspiele 


Eine echte Herausforderung 
„ für Rätselknacker: 
“. 1.000 Denkspielel Für vie- 


\ 








" sungen im Anhang. 


über 


le reichen Papier, Bleistift 
und Streichhölzer. Lö- 


. 200 Seiten, 1.000 Abbil- 
dungen, gebunden. 
, Nur DM 
__\ Best.-Nr. 
260 886 ei v 





Mehr Erfolg durch besse- 
res Deutsch. Alles Wichti- 
ge über den sicheren Um- 
gang mit unserer Sprache. 
2 Bände, 444 Seiten, IIlu- 
strationen, gebunden. 


Kompl. nur DM 29 
rn he 


Bea -Nr. 123 #51 





. oO) 
h 

3 » « 
Der große Atlas des 
Weltalls. Die gigantische 
Dokumentation mit sen- 
sationellen Farbfotos. 
192 Seiten, Großformat 38 


x 27 cm, gebunden. 
{Früh. Orig.-Ausg. DM 169, —)." 


Jetzt bei uns 

nur DM 

Best.-Nr. 174335 98 0 
=005000000000006 
Logisch denken — leicht 
gemacht. Schritt-für- 


Schritt zum Erfolg: mitüber 
200 Testfragen und Bei- 
spielen! Mit diesem syste- 
matischen „Denktraining” 
zählen Sie bald zu den 
Schnelldenkern! 

178 Seiten, gebunden. 


Nur DM 
| Best.-Nr. 231550 6° 0 


BEITIITIITITITTTT 


| Das umfassende Stan- 


Ihre Vorteile; 


® Kein Club, keine 
Mitgliedschaft. 

© volle 14 Tage Rück- 
gaberecht. 

® Mit Riesen-Preis- 
vortellen. 

® Lieferung bequem 
per Rechnung. 

















Der große Alpenführer. 







dardwerk. Mit über 400 
Farbfotos und mehr als 50 
Karten. Hier ist die gesam- 
te Bergwelt der Alpen bis 
auf den kleinsten \Wander- 
weg beschrieben. Land- 
schaftsform, Klima, Flora 
und Fauna, Sehenswür- 
digkeiten, Geschichtliches 
u.v.m. 

2 Bände, 700 Seiten, Farb- 
fotos, 50 Karten, Format 19 
x 12 cm, gebunden. 

Jetzt bei uns als Sonder- 
















Auf Traumstraßen durch 
Deutschland, Alles über 
Routen und Ziele. Mit 
prachtvollen Farbbildern. 

208 Seiten, 220 teils ganz- 
seitige Farbfotos, 25 Rou- 
ten, Großformat 30 x 24 


ausgabe kompl, fürbeide | cm, gebunden. 
Bände nur DM Nur DM 
Best.-Nr. 151327 2930 Best.-Nr. 214663 2930 






Oma’'s Koch- und 
Backbibliothek Die 
u besten Rezepte von 
Anno dazumalendlich 
komplett in diesen 20 
Bänden. 

20 Bände, über 6.500 
Rezepte auf mehr als 
3.200 Seiten, 18 x 11 
cm, kart,, in Kass. 

20 Bände komplett 


= nur DM 4980 


Best.-Nr. 
Ä 183385 
| Coupon zur sofortigen Anforderung 
1 Ju, bitte senden Sie mir per Rechnung mit 14 Tagen 


Rückgaberecht: 
Best.-Nr. Preis/DM 


Eimmerdem 







tunen = 


Almen “r 
> Techn Atigein ih Ahemiie | . 


Br en a Par 
Haren Misch u Mechigpiium 

or he ne Einen Aare = 

‚ Fivae rt Veryrensen & vlosen Sache 


Her 


GPihliothek 
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zzgl. Knien 





2579 








Vorname, Name 
Diesen Coupon 


Straße. Hausnummer 

Tronle-Vorlag 
Stad 35 

3440 Eschwege 





PLZ. Wohnort 





Datum, Unterschrift 


be m 


bitte einsenden an: 


| Beitragszeilen 


Ersatzzeiten 





Ausfallzeiten 


Personenstandsurkunden 


Rentenbescheide | Versicherungsverlauf, Rentenauskunfl 


Der Berufsordner 

Der BERUFSORDNER hilft Ihnen beim 
Organisieren Ihrer wichtigsten Dokumente. 
Er wurde in Zusammenarbeit mil dem 
Arbeitsamt, Krankenkassen, Unternehmen 
und Gewerkschaften entwickelt. 


Der Kinderordner 

Im Vorwort und auf den 6 Registern finden 
Sie Anregungen, wie Sie den KINDER" 
ORDNER am besten nützen können. 


Der Reiseordn 


Reiscunterlagen, Dokumenie und alles, 
was Sie an Informationen aus Zeitschriften 


und Prospekten über 





mit diesen praktischen Sammelordnern. An der Entwicklung 


‚sinnvoller Register haben Experten der verschiedenen Fachgebiete 
mitgearbeiter. Alle Ordner enthalten 7-1Wteilige hedruckte Register aus 
abwaschbarer Hartfolie. Eine dauerhafte Ringmechanik hält Ihre 
wichtigen Unterlagen lest im Grill. Der bordeauxrote, marmorierte 

Einband ist goldbeschriftet und in Ledercharakter gearbeitet. 





er 


Ihr Reiseziel 


gesammelt haben, lindet Platz in diesem 


praktischen Sammelordner. 


Das große Reisefotoalbum 


fürIhre schönsten Urlaubsiotos. 
Zehn stabile Einlageblätter mit Adhäsions- 


Klarsichtlolie ermögl 


Jazugekauft werden. 


Der Gartenordner 

Wichtige Tips für Garten und Balkon! 

In diesem praklischen Sammelordner linden 
Sie viele Anregungen, wie Sie in Zukunft 
beim Gärtnern Enttäuschungen vermeiden 


können. 


Der Kontoauszugsordner 


Die Sammelmappe für Ihre Kontoauszüge. 
Unentbehrlich im Büro, Betrieb, Geschätt 


und zu Hause. 


Rücknahme-Garantie. Erst prüfen und ansehen, dann entscheiden! 


Name, Yorname 
Straße, Hausnummer 
PLZ, Wohnort 


‚Fernsehen, | Heizung, Wasser, | Wohnung, 
Strom, Gas 


Ss 
S 
= 
= 
LM) 
Fe 


Garantie | Fahrzeuge | Steuern | Versicherungen | Rechnungen | Radio 


Bescheinigungen 





Urkunden, Ausweise, 





Sie gehen also nicht das geringste Risiko ein. Wir garantieren Ihnen, bei Nichtgefallen jeden Artikel zurückzunehmen, wenn 








Datum, Unterschrift 


Sie sparen 
eine 

Menge Zeit, 
Geld 

und Ärger 


Der Rentenordner ’ 


Dokumente für meine Altersversorgung | 
wurde in Zusammenarbeit mil der Landes 
versicherungsanstall entwickelt 


Der Steuerordner 

in Zusammenarbeil mit St@uerberalern und 
Finanzamt entwickelt. sorgen ein Vorworl 
und das öteilige Register dafür. daR Ihre 
Unterlagen vollständig eingereicht werden. 


Der Hausordner 

Hier kann nichis schieigehen? Alle wichtigen 
Unterlagen und Dokumente haben Sie til 
dem HAUSORDNER auf einen Blick griffbereit. 


Der Rezepteordner 

Sammeln Sie ausgelallene Rezepte aus 
Zeitungen und uotieren Sie sich Tips lür Ihre 
Menüs, wenn es bei Freunden einmal 
besonders gul geschmeckt hat. 


Der Versicherungsordner 
Alles unter Dach und Fach. Mit dem 
VERSICHERUNGSORDNER sind Sie für 
den »Ernstfall« gut gerüstet, 


Der Bankordner 


Es wird Hınen nichts geschenkt - abar Sie 
sollten unmer wissen, was mit Ihrem Geld 
geschieht. Mit dem BANKORDNER wird 
es Ihnen leicht gemacht. 


| 
| 
| 
| 
| 
| 
| 
| 


FD Berufsordner | 
U Reiseordner 


| 
DJ Reisefotoalbum 
OD Kinderordner 


Alle Ordner statt DM 225,70 nur DM 149,—. Sie sparen DM 76,70! 


Diesen Coupon bitte noch heute 
einsenden an: 


Tronie Verlag 
Stad 35 
3440 Eschwege 


Sie ihn spätestens am 15. Tage nach Erhalt zurücksenden. Damit ist Tür Sie alles ohne jede weitere Verpllichtung erledigt R. 
- } 
ichen ein praktisches 
Einlegen Ihrer Bilder. WeitereBläerkönen —„——— un a a nn mn Tr 
| Coupon zur sofortigen Anforderung 
| Ja, bitte senden sie mir per Rechnung mit 14 Tagen Rückgaberecht 
[ [) Rentenordner [U] Versicherungsordner 
| © Steuerordner U] Bankordner 
ji CO Hausordner E[] Gartenordner 
I U Rezepteordner U] Koritoauszugsordner 
l Stückpreis nur DM 7,90 
l.O 
| 
N 


